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OPERATIONAL MANUAL FOR TWO-DIMENSIONAL 


TRANSONIC CODE TSPOIL 

By Stephen S. Stahara 
Nielsen Engineering & Research, Inc. 


1 . SUMMARY 

A detailed operating manual is presented for the computer code TSFOIL 
recently developed by Murman, Bailey, and Johnson at NASA/Ames Research 
Center. This code solves the two-dimensional, transonic, small-distur- 
bance equations for flow past lifting airfoils in both free air and vari- 
ous wind-tunnel environments by using a variant of the finite-difference 
method initially proposed by Murman and Cole. A description of the theo- 
retical and numerical basis of the code is provided, together with com- 
plete operating instructions and sample cases for the general user. In 
addition, a programmer's manual is also presented to assist the user 
interested in modifying the code. Included in the programmer's manual 
are a dictionary of subroutine variables in common and a detailed des- 
cription of each subroutine. 
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INTRODUCTION 


During the past several years, the rapid growth and development of 
numerical techniques capable of treating the nonlinear equations of tran- 
sonic flow past aerodynamic configurations has generally resulted in a 
wealth of research computer programs but a lack of adequately documented 
user-oriented codes. In light of this, the present work was undertaken 
with the dual objectives of: 

(1) providing a computer code which is capable of solving a general 
class of two-dimensional, transonic, small-disturbance flows, and which 
incorporates as many of the recent advances in the theory as possible and 

(2) providing a systematically organized, user-oriented code with 
complete documentation to allow easy extension and modification for new 
applications and improvements, 

A summary of the features and capabilities of the computer program was 
given in reference 1. This document provides an operational manual of 
the code, and includes a full description of the method of solution. 

Although the basic solution technique used in the program is based 
on the original work of Krupp and Murman (refs, 2 and 3) various improve- 
ments and extensions have been incorporated in the version presented here. 
These include a simplified procedure for converging to the proper circula- 
tion for lifting airfoils (refs. 4 and 5), the appropriate difference 
operator to be used at shock waves (ref. 6) , the evaluation of inviscid 
drag using momentum contour methods (ref. 7) , wind-tunnel wall simulations 
(ref. 8) , calculation of > 1 transonic flows (ref. 9) , the acceler- 

ated spread of circulation throughout the flow field for < 1 free air 
flows (ref. 10) , an analytic mesh (ref. 11) as well as a mesh cutting 
option to speed convergence, a successive line overrelaxation procedure 
based on the correction potential (ref. 12) , and a pseudo-time term (ref. 
12) to aid stability. 

The operating manual presented here has been siibdivided into two 
general categories. The first category is presented in section 4 and is 
a General User's Manual. In that section, a description of the problem 
solved by the code is given, including a discussion of the differential 
equation, geometry, boundary conditions, and numerical formulation of the 
problem, together with a description of the general operating procedure 
of the code, overall program flow chart, input/output description, error 
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messages, and sample calculations. All the information necessary to run 
the code are provided in that section. In section 5, a Programmer's Manual 
is presented to assist the user who wishes to modify the code to incorpo- 
rate .additional features or to extend the code beyond its present capa- 
bilities. Included in that section is a dictionary of all siibroutine 
variables which appear in common blocks and a detailed description of the 
individual subroutines. In order to provide a user-code that will readily 
accommodate modifications, the program has been modularized in the sense 
that numerous (53) special-purpose subroutines have been used, rather than 
one large main program. Consequently, should the user not require some of 
the special calculations or output provided by the code, deletions can be 
made simply and directly. 

In reference 1, it was noted that a number of computational problems, 
which are repeated here for convenience, existed in the version of the 
code then available. Some of those problems have since been alleviated 
by improvements to that initial version. In particular, the computation 
of lifting airfoils in supersonic free streams, which had proved trouble- 
some, has been improved by the addition of a pseudo-time term as discussed 
in detail in section 4.1.5, and also by the introduction of an analytical 
mesh suggested in reference 11. A characteristic difficulty with > 1 
flows is that the maximum iteration error may initially decrease mono- 
tonically to a certain level, and then oscillate about that level, or in 
more severe cases, diverge. The maximum error almost always occurs at 
points near the airfoil and close to the bow or trailing edge shocks, or 
the locations where those shocks cross the mesh outer boundary. Addition 
of the pseudo-time term has served to stabilize this feature of the calcu- 
lation, particularly when mesh cutting has been employed and the switch 
is made to the next finer mesh. Use of the analytic mesh frequently has 
served to preserve the monotonic convergence behavior of the solution, 
presumably both by the clustering of points near the leading and trailing 
edges and the expansion of points near the mesh boundaries. 

Addition of these two features has also served to enhance the con- 
vergence of M^ < 1 flows. For example, converged solutions were achieved 
for a number of transonic flows past the 64A410 airfoil which could not 
previously be obtained with the earlier version. Also, supercritical 
flows for which the shock wave on the airfoil upper surface reached the 
trailing edge had proven difficult to calculate. For these cases, use of 
the analytic mesh appears to aid convergence considerably. 


3 


However, the occurrence of irregularities in the solution near the 
leading edge, as noted in reference 1, remains in the present version. 
Although these also appear in Krupp's results (ref, 2), in the current 
program they are predicted to be somewhat stronger. These dissimilarities 
may be due to the slight differences in numerical procedures used. Of 
course, one of the inherent deficiencies in any first-order, small-distur- 
bance theory is the inaccurate treatment of the leading edge. A more 
accurate treatment, such as those suggested in references 13 and 14, has 
not been incorporated in the program, although a Reigel ' s rule option has 
been added. 

The program has been written in FORTRAN IV source language and devel- 
oped for use on a CDC 7600 computer using the OPT=2 compiler- The memory 
requirements are (57K)g and (30K)g words for small core and large core, 
respectively. 
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3. LIST OF SYMBOLS 


^j,i 


c 


C 


i 



c 


P 




f . 

X 


i 


F 


coefficient matrix, equation (36) 
airfoil chord 

column vector cont^ning values of the correction potential 
. C j i along the i^^ column of the finite-difference mesh, 
equation (47) 

drag coefficient, equation (34) 
correction potential, equation (42) 
pitching-moment coefficient, equation (33) 
pressure coefficient, equation (28) 

pressure coefficient associated with the airfoil upper surface 

pressure coefficient associated with the airfoil lower surface 

. th . . 

column vector assocxated wxth the x column of the fxnxte- 
difference grid, equation (46) 

nondimens ional wind-tunnel slot parameter, equation (20) 


F 


u, Z 


dimensionless affine function describing, respectively, the 
ordinates of the upper and lower airfoil surface, equation (7) 


H ratio of wind-tunnel half height to airfoil chord 

H transonically scaled tunnel half height to airfoil chord ratio, 

equation (22) 

i,j indices identifying the grid point at the i^^ column and 

row 


k exponent of Mach number in similarity definition of the small - 

disturbance equation, equations (2) and (6) 

K transonic similarity parameter, equation (5) 

L nondimens ional spacing of slot centerlines, normalized by c; 

equation (20) 

m exponent of Mach number in similarity definition of transoni- 

cally scaled y coordinate, equation (4) 

M local Mach number, equation (30) 


M_ free-stream Mach number 

00 

n exponent of Mach nuiriber in similarity definition of velocity 

potential, equation (1) 
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p 

p 

p 


p 

o 


s 


u 


(2^,y) 


(x',y') 

y 

^u, I 


a 

r 

r 

7 

6 


e 


6 


M- 


j,i 


4) 


$ 


0 

0 


ff 


pressure 

nondimen sional experimentally determined wind-tunnel porosity 
parameter equal to 20^ (x, ±H) (x, ±H) /q^, equation (19) 

transonically scaled wind-tunnel porosity parameter, equation 
(23) 

shock-wave total pressure loss 
free-stream pressure 
free-stream dynamic pressure 
residual matrix, equation (45) 

nondimens ional slot width, normalized by c; equation (20) 
free-stream velocity 

nondimens ional Cartesian coordinate system with x axis 
directed rearward and aligned with the free stream; 
coordinates normalized by c 

equal to (cx,cy) 

transonically scaled y coordinate, equation (4) 

ordinates of the upper (u) and lower (i) airfoil surface, 
equation (7) 

angle of attack 

circulation, equation (12) 

far-field circulation, equation (13) 

ratio of specific heats 

airfoil thickness ratio 

parameter multiplying pseudo-time term At0j^^/Ax in small- 
disturbance partial differential equation, equation (48) 

local flow angle, equation (29) 

switching parameter, equation (37) 

disturbance velocity potential, equation (1) 

total velocity potential, equation (1) 

dimensionless perturbation velocity potential, equation (1) 

asymptotic far-field solution of the perturbation velocity 
potential 
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A0 (x) 


jump in perturbation velocity potential along trailing vortex 
wake, equations (14) and (16) 


A0. jiimp in perturbation velocity potential at the trailing edge, 

® equation (12) 

cjo relaxation parameter, equation (44) 

03^ relaxation parameter for elliptic points, equation (44) 

o)p relaxation parameter for circulation, equation (13) 
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4. GENERAL USER'S MANUAL 
4.1 Description of Program 


This section provides an overall description of the program, a brief 
discussion of the theoretical and numerical formulation of the problem 
solved by the code, including a description of the differential equation, 
airfoil geometry, boundary conditions, and finite-difference method. Also, 
the general operating procedure of the code is reviewed and an overall 
program flow chart is provided. 


4.1.1 Differential equations and transonic scaling .- The partial 
differential equation solved by TSFOIL is the transonic small -disturbance 
equation for the perturbation velocity potential cast in terms of transonic 
similarity variables. Because of the nonuniqueness of the scaling, various 
forms have been adopted by different authors. If (<E>,0) are, respectively, 
the physically and transonically scaled perturbation potentials, the 
various forms can be combined in the following general manner: 

r x2/3 

0(x',y') = cU^[x + 0(x,y) + 


...] = cUlx + 


M 


n 


0 (x,y) 


( 1 ) 


where c is the airfoil chord, U^ and M^, respectively, are the free- 
stream velocity and Mach number, 6 is the airfoil thickness ratio, (x,y) 
are the physical Cartesian coordinates (x',y') normalized by airfoil chord, 
and y the transonically scaled y coordinate given below. Now, (<I>,0) 
satisfy 


(1 - M ^)0 - 

00^ X 




K0, 


_ X 


+ 1 


X 


=<]x + Kly = ° 

:]k ^[^y]y = ° 


(2) 


(3) 


where 


y = 


(4) 


K = 


1 -M-^^ 
00 


(5) 
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and the exponents (k,m,n) are related by 

k = 2m + n (6) 

The different forms of the transonic similarity variables depend essen- 
tially on the particular choice of the exponents (k,m,n) , and Table I 
provides a summary of the particular values proposed by Cole, Spreiter, 
or Krupp which have been incorporated into the program. The partial 
differential equation actually solved by TSFOIL is then equation (3) . 

4.1,2 Geometry . - The coordinate system used in the program is the 
Cartesian system shown in figure 4-1, with the airfoil located along the 
x-axis between 0 and 1, at angle of attack, a, and with a shape given by 

0<K<1 (7) 

where (u,i) denotes the upper and lower surfaces, and i ^ 

function of order one describing the ordinates of a family of affinely 
related airfoils. Default profiles incorporated into the program are 
the parabolic -arc 


F^^ ^(x) = +2x(l -x) 


( 8 ) 


the NACA four -digit series 

F ,(x) = +(1.4845Ax - 0.63 x - 1.758x^+ 1.415x®- 0.5075 x'^) (9) 

u , 

and the Korn airfoil described in reference 15. Provision has been made 
in the program for the user to input a profile of his choice by either a 
formula or a table of ordinates. 

4.1.3 Boundary conditions . - The boundary conditions applied to this 
problem consist of the flow tangency condition at the airfoil surface, a 
condition for lifting airfoils assuring the value of circulation be unique, 
and some far-field conditions to be satisfied on the outer boundaries of 
the computational mesh. Within the framework of small -disturbance theory, 
the tangency condition at the airfoil can be linearized and applied along 
the slit y=0, 0<x^l as 




dF^(x) 


( 10 ) 


dx 


a 

6 
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0~(x,o ) 


6 


( 11 ) 


dF^ (x) 
dx 


For lifting airfoils, two options have been incorporated in the 
program to insure that the circulation is unique. The first is the usual 
Kutta condition which is satisfied by requiring that 0^ (pressure) be 
continuous along the line y = 0, x ^ 1, and that 0^ (flow angle) be 
continuous across y= 0, x> 1. The disturbance potential 0 remains 
single- valued by introduction of a cut along the y = 0 axis downstream 
of the airfoil along which 0 is discontinuous , jumping by the value 
of the circulation F defined by 


r = 



d0 = A0^^ 


( 12 ) 


where the contour is taken around the airfoil surface, and the resultant 
integral is equal to the jump in potential at the trailing edge. The 
circulation F^^ used in the asymptotic far-field solutions to update 
the outer boundaries is determined from the relation 


F 


n+i 

ff 


^ff - “r 


(^ff - A0?e) 


(13) 


where is the relaxation factor for circulation and n is the itera- 

tion count. The updated jump in potential A0 (x) along the slit y = 0, 

X > 1 is calculated by the program according to the formula 


A0 (x) 


A . X - 1 

A0. + — 

te X 


max 


- 1 


/ n+i _ n \ 
V^ff ^ff/ 


(14) 


From the results of reference 4, a value of circulation relaxation factor 
CJDp = 1.0 (default value) is recommended. This implies that the updated 
far-field circulation be set equal to the new jiimp in potential at the 
trailing edge. 


r 


n+i 

ff 


A0 


n 

te 


(15) 


and that the jump in potential along the trailing vortex wake be held 
constant and equal to 

A0(x) = A0^^ (16) 
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Numerical experimentation has shown that the simpler representation of 
equations (15) and (16) gives the same results and convergence rate as 
both the method of Krupp (ref. 2) and the closely related procedure of 
equations (13) and (14) . 

The second option available to insure uniqueness of circulation is 
to specify the lift. In this case, the Kutta condition is not satisfied, 
and the pressure becomes double-valued at the trailing edge. The jump in 
potential at the trailing edge, as well as the far-field circulation, and 
the potential jump along the trailing vortex wake are given by 

= A0(X) = I ^L^ . SET 

where (C^. ) is the specified lift coefficient, 

JLi DX!iT 

For conditions at the outer boundaries, provision is made in the 
program to represent free air flows and various wind-tunnel wall simula- 
tions for both < 1 and M > 1. For subsonic free air flows, the 

program incorporates the asymptotic far-field solution 0 ^^ given by a 
compressible vortex and doublet, while for supersonic free air flows the 
appropriate far-field conditions incorporated are that the perturbation 

velocities 0 , 0 ~ vanish at the upstream boundary and that the outgoing 
X y 

wave condition 


0 ~ = ±yr~K 0 ^ (18) 

be enforced at the top and bottom boundaries in order to prevent reflected 
waves. Strictly speaking, for > 1, no condition is required at the 

downstream boundary if as we assume it is sufficiently far removed down- 
stream so that the outflow is entirely supersonic. However, for actual 
numerical application, some condition is needed (ref. 8 ) to treat subsonic 
outflow which may develop during the course of the relaxation solution 
process prior to convergence. By numerical experimentation, the condition 
0 ^ = 0 was found to be satisfactory. Figure 4-2 summarizes these condi- 
tions for free air calculations. 

For wind-tunnel simulations, the classical homogeneous tunnel wall 
boundary condition 

0^(x,+H) + FH0^y(x,+H) + ^ <J>y(x,+H) = 0 (19) 
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is applied at the tunnel walls y = + H. Here, H is the ratio of tunnel 
half height to airfoil chord, P is the tunnel slot parameter, and p is 
the porosity parameter which accounts for viscous effects in the slot and 
must be determined experimentally. A simplified analysis has been made 
by Baldwin, et al, (ref. 16) for the slot parameter F, which he gives as 

*■ = (a)J (20) 

where L is the spacing between slot centerlines and s is the slot 
width, both normalized by airfoil chord. The program uses equation (19) 
in the similarity form 

^>^(x,±H) ± FH0 ~(x,+H) + ^ 0~(x,+H) =0 (21) 

A xy P ^ ~ 

where (H,P) are the transonically scaled tunnel half height and porosity 
given by 

H = H (22) 

P = P/(a^/®M“) (23) 

The following subcases of equation (19) have been incorporated into the 
program as separate options 


II 

o 

Solid Wall 

(24) 


= 0 

Free Jet 

(25) 


Ideal Perforated/ 
Porous Wall 

(26) 

(x,+H) + PH0^-(x,+H) = 0 

Ideal Slotted Wall 

(27) 


while the general case has not yet been included. For tunnel flows, the 
upstream and downstream conditions used are the following. For < 1, 
the asymptotic far-field solution 0£^ which satisfies equation (19) and 
the linearized version of the differential equation (3) is used. The case 
of choked flow, as treated in reference 17, has not been included in the 
program. For > 1, the conditions ~ ^ enforced at the 
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upstream boundary, while the flow is required to be supersonic at the down- 
stream boundary and the condition 0^ = 0 is employed, as in the supersonic 
free air calculation. These conditions are summarized in figure 4-3. 

4.1,4 Aerodynamic variables . - The aerodynamic quantities of interest 
output by the program are given below in terms of the small -disturbance 
similarity potential 0(x,y). These include pressure coefficient, Cp, 
flow single, 0, local Mach number, M, shock wave total pressure loss, 

[Pol/^oo> coefficients of lift, C^, pitching moment, Cj^, and drag, Cq. 

Cp = ( 28 ) 


9 = 60. 


M 


= j 1 - [k - (7 + 


[Pol 




-/ 




m 


X 

=/ 


- V <Su - 


(positive nose-up) 


(29) 

(30) 

(31) 

(32) 

(33) 


<=D = j 

where t^x^s in the streamwise perturbation velocity across a 

shock , 

4.1.5 Numerical formulation .- The numerical formulation of the 
problem together with the techniques employed to solve it are presented in 
this section. The numerical solution of the problem is initiated by re- 
placing equation (3) by the following finite-difference form given by 
Bailey and Ballhaus in reference 18. 


- 0 ~ - — 
y 3 


(7 + l)0®]dy - ax - J [0^] ^ d? 


(34) 


S3C 
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j,i-l/2 ■ ^'*’x^ j.i-a/s]} ^ 

^ [‘Vj+V2.i-‘Vj-V2.i] /‘yj+X/.-yj-lA> = ° 


^.i = 1 - M^ - (Y + l)C(Vj,l 


0 for A . . > 0 

D,i 


1 for A . . <0 


0 . . — 0 . . 

(0 ) . . , = 


j+i/2,i 


0 . . 

. 1 


^j+i 


, etc. 


and {0 ) . . in equation (36) is approximated by 

X 3 > ^ 


^'^x^jji 2 [^^x^j,i+i/2 ^“^x^ 


+ (0,J 




This form of the difference equation with the switching parameter [x . • 

encompasses the four operators of Murman ' s fully conservative relaxation 
(FCR) method (ref. 15) ; that is, elliptic ([i^ = 0, ^ = 0) , hyper- 
bolic ([ 1 . . = 1, 11 . . = 1) , parabolic (|x. . = 0, = 1), and shock 

3,1—1 JjJ- _ 

point (|JL. i 1 M- ■ i evenly spaced meshes is identical to 

that method. For une^ally spaced meshes, the first term differs from 
Wurman's (ref. 19) by a factor of (x^ - - x^_J in hyperbolic 

regions. The finite-difference equation (35) can be cast in the following 
form 
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(l-jX. .)A. .(CXXL.0. . , -CXXC.0. . +CXXR.0. . ) 

D,i 1 3,1 1 3,1+1 

+ [1. . A. . (CXXL. 0. . - CXXC. 0. . + CXXR. 0. .) 

3 , 1-1 D , i -1 1 - 1 ^ 3 , 1-2 1 - 1 ^ 3 , 1-1 1 - 1 ^ 3 , i ' 


+ CYYD.0. . - CYYC.0. . + CYiTU.0., . = 0 
3 3-1,1 3 3,1 3 3+1,1 


( 41 ) 


where the coefficients (CXXL^^, CXXCj^, etc.) depend on mesh geometry only 
and can he deduced from equation (35) . Although equation (41) forms the 
basis of the numerical analysis, the solution technique actually employed 
in the program is similar to that . recently suggested by Jameson (ref, 12) 
in which the difference equation (41) is recast in terms of a correction 
potential ^ defined by 


,n+i ,n , ^ 
cb . . = 0 . . + C . . 

3,1 3,1 3,1 


(42) 


where 


n 


represents the current iteration cycle. 


The governing equation for C . . is determined in the following 

3,1 

fashion. First, we consider the difference equation (41) in which the 

values 0 . • of the potential along the current column are replaced by 

3,1 


their provisional values 0^ while the values (0^'^_,, 0’^ , 0*^ 


A^ ^ .) are used to evaluate the remaining terms. Similarly, we 

3,1'^ 3,1 

define a residual 
n 


n 


3,1 


n+i 

*3,1-1’ 


n+i 

*j,i-2 


n 

j,i+i’ 


R. . by considering the same equation but with the 
3,1 

result 0V . used for 0 ■ ■ . By subtracting those two equations and 

3,1 ^ 3,1 

then eliminating 0^ ^ by use of the overrelaxation formula 


n+i n , /cr . 

0. . = 0. . + o) (0- ■ - 0. .) 

3,1 3,1 3,1 3,1 


(43) 


where 


CO 


1 < CO <2 
e 


for locally subsonic flow (A . . > 0) 

3,1 


CO = 


1 for locally supersonic flow 

the following difference equation results for 

/-(l-|a. .)A^ .CXXC./co + Li . . A^ . CXXR. Ic. . 

X "^3,1 3,1 1^ e 1-1 3,1-1 1-1 / D,i 

+ CYYD .C . . + CYYU . C . . = -R . . 

3 3-1,1 3 3+1,1 3,1 


(A._i < 0) 


We note that in the derivation of equation (45) , new values 0^'*’^ rather 
. 3,1 

than provisional values 0 . . are used to evaluate 0 at both subsonic 

3,1 yy 

and supersonic points. As pointed out in reference 12, this avoids a 


(44) 


(45) 
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discontinuity in ^yy ^ sonic line. 

The solution of equation (45) then proceeds by using an iterative 
successive line over-relaxation (SLOR) algorithm as follows. The system 
of equations for each vertical line is written as 



where C. is the J dimensional column vector 
1 



(46) 


(47) 


A is a J X j dimensional, diagonally dominant, tridiagonal matrix, and 
f^ is a J dimensional column vector. The solution process consists of 
making an initial guess for 0, and then successively sweeping the grid 
from the upstream to downstream boundary, solving for new values of ^ 

from equation (46) by direct elimination using the method of triangular 
decomposition, and then determining new values of 0 from equation (42) . 
The initial guess for 0 may be selected from a uniform flow (0 = 0) 
or a previous case stored in core or on a peripheral unit. With regard 
to the over-relaxation parameter acceptable values on a fine mesh 

for cjD^ are 1.8 < co^ < 1.95, although optimum values for particular 
applications must be determined by numerical experimentation. 

A mesh refinement option has been incorporated into the program to 
enhance the rate of convergence. Under this option, the user may elect 
to initiate the calculation either on a mesh (medium mesh) obtair^d by 
deleting every other mesh point of the input mesh (fine mesh) , or on an 
even coarser mesh (coarse mesh) obtained by again deleting every other 
point on the medium mesh. In the latter case, the iterative solution is 
started on the coarse mesh, and after appropriate convergence is reached, 
continued on the medium mesh, and then completed on the input mesh. Also, 
in order to improve stability and aid convergence, an option has been 
provided in the program to add the pseudo-time term in the form 


„ At 
Ax ^xt 


( 48 ) 


where 
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(49) 


At ^ ^ 3 , 1 / \^:3,1-1 = -j^ 


0 

Ax ^xt 


Xi - x^ 


-.) 


(x. - X. ) 

X X-1 


to the left-hand side of equation (45) as suggested in references 12 and 
18. The parameter e is an input parameter with a value in the range 
0 < £ ^ 1. Considerable improvement in stability and convergence has 
been obtained in a number of both subsonic and supersonic free-stream 
calculations when this term is added. However, this result is not true 
for all cases and extensive numerical experimentation to determine optimum 
values for e has not yet been carried out. Consequently, the user must, 
of necessity, determine suitable values for his particular application. 

An appropriate first guess would be e = 0.2 which is the default value. 


Finally, we note that the numerical methods used in this program are 
of the shock-capturing, rather than shock-fitting type. This means that 
shock waves are spread over several mesh intervals and do not appear as 
sharp discontinuities. Calculations have shown (ref, 19) that for sub- 
sonic flow downstream of shock waves, four mesh points are sufficient to 
capture the shock jump; whereas for supersonic downstream flow, six to 
ten points are required. The latter is due to dissipation effects which 
dominate the first-order accurate hyperbolic operator in equation (35) , 
and smooth out shocks to that extent. This is a weakness in the method if 
sharp supersonic oblique shocks are required, and necessitates special 
indentations of the momentum contours used to calculate the inviscid drag 
for all cases where M >1, and also for cases where ]yi < 1 when tail 
plus wake shocks occur. See subroutine CDCOLE in section 5.2 for a 
description of the momentum contours incorporated in the program. 


4.1.6 Operating procedure .- The general operating procedure of the 
program is straightforward and is described in this section. First, the 
main program prints all of the input cards (ECHINP) , then reads the input 
for the first case, checks it for errors, assigns default values to those 
parameters not specified, and then prints all of the input parameters 
(READ IN) . Next, if the input was in physical rather than transonic form, 
the appropriate scaling is applied to render all the necessary variables 
into transonic similarity form (SCALE) . The unit-strength boundary 
data on the far-field mesh boundaries are then computed (FARFLD) . Next, 
the geometrical characteristics of the airfoil that are required in 
the finite-difference calculations are determined (BODY) . The medium and 
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coarse meshes are then established if the user has opted to use the mesh 
refinement option (CUTOUT) . Next, the 0 array is initialized (GUESSP) , 
and then the various difference coefficients that depend on mesh size are 
calculated for the current mesh (DIFCOE) . The I and J indices for 
solving the difference equations are set, and the airfoil slope boundary 
condition is multiplied by mesh spacing constants for use in the finite- 
difference calculation (SETBC) . The relaxation solution of the difference 
equations is then carried out in an iterative fashion by sweeping the flow 
field from upstream to downstream boundaries with convergence information 
being output after a specified number of sweeps (SOLVE) . If the calcula- 
tions have been carried out on an intermediate mesh, flow field information 
on the dividing streamline, including the airfoil, are printed (PRINTl) , 
and then mesh points are added to obtain the next finer mesh (REFINE) . 

The sequence of relaxation calculations are then repeated (DIFCOE, SETBC, 
SOLVE, PRINTl) until the final mesh is reached. At this point, the final 
flow information is output (PRINT) , the solution stored for later use 
(SAVEP) , and the calculation for the next case begun. If the solution 
should diverge during the course of the finite-difference calculation 
(SOLVE), the computation is then aborted, . with portions of the final 
printout (PRINT) provided to assist the user in determining the cause 
of the difficulty. 
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Overall program flow chart . - An 
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overall program flow chart 
flow of the code. 
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4.2 Program input 


The input required by the program is described in this section. A 
dictionary of input variables is provided first, followed by a description 
of the various input control options available to the user. All of the 
default values of the input variables are given next, followed by a de- 
scription of the input data format including preparation of a sample run. 


4,2.1 Dictionary of input variables .- All variables that are input 
to this program are described in the following list. 

DESCRIPTION 


VARIABLE 

AK 


ALPHA 

AMESH (logical) 

BCFOIL (integer) 

BCIYPE 

CLSET 

CVERGE 

DELTA 


2 2 in 2/3 

transonic similarity parameter; equal to 1-M^M 6 ' 

where m is defined in Table 4-1 according to ^he type 
of transonic scaling used; input required only if tran- 
sonic scaling used in input/ output ; that is, PHYS = .F. 

angle of attack, a, in degrees for PHYS = .T. 

control option for specification of analytical default 
mesh; equal to .T. or .F. 

control option for specification of airfoil geometry; 
equal to 1, 2, 3, or 4 

control option for type of flow environment; equal to 1, 
2, 3, 4, or 5 

specified lift coefficient; input only if Kutta condition 
not enforced; that is, KUTTA = .F. 

convergence criterion for maximiim iteration error in 0 

airfoil thickness ratio 6 


DVERGE 

EMACH 


EPS 

F 

FCR (logical) 

GAM 

H 

ICUT 


divergence criterion for maximiim iteration error in 0 

free-stream Mach number, M ; because of the particular 
far-field formulation use§ in this program, M^ can 
be close but not exactly equal to 1 

coefficient of pseudo-time term At0^^/Ax in differ- 
ential equation 

slot parameter for ideal slotted wind tunnel 

control option for specification of type of differencing 
to be used at shock waves; equal to .T. or .F. 

ratio of specific heats T 

ratio of tunnel half height/airfoil chord 

control option for mesh cutting and refinement; equal 
to 0, 1, or 2 
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VARIABLE 


DESCRIPTION 


IMAXI 

IMIN 

IPRTER 

OMAXI 

JMIN 

KUTTA (logical) 

MAXIT 

NL 

NU 

PHYS (logical) 
POR 

PRTFLO 

PSAVE (logical) 

PSTART (integer) 

SIMDEF (integer) 

WCIRC 
WE (I) 

XGRDIN 


maniber of x-mesh points in input mesh; IMAXI < 100 

value of I index designating the x-mesh point where 
the finite-difference calculation is to start 

control option for print frequency of intermediate output 

number of y-mesh points in input mesh; JMAXI < 100 

value of J index designating the y-mesh point where 
the finite-difference calculation is to start 

control for Kutta condition specification; equal to ,T, 
or .F . 

maximum allowed number of iteration sweeps through the 
flow field 

number of ordinate points used to describe airfoil lower 
surface; NL < 100 

number of ordinate points used to describe airfoil upper 
surface; NU < 100 

control for specification of the type of scaling (physical 
or transonic) used in input/output; equal to .T. or .F. 

porosity factor for ideal porous/perforated wind-tunnel 
wall 

control for printout of final flow field; equal to 1, 2, 
or 3 

control for saving restart block of values on unit 3; 
equal to ,T* or .F, 

control for initialization of 0 array; equal to 1, 2, 
or 3 

control for definition of transonic similarity scaling; 
equal to 1, 2, 3, or 4 

relaxation factor for circulation 

vector array of length 3 representing values of the 
relaxation factor for elliptic points on the coarse, 
medium, and fine meshes, respectively; if specified, 
all three values must be given 

control for input of user-designated x-grid; equal to 

.T. or ,F. 


21 



VARIABLE 

XIN(I) 

XL (I) 

XU(I) 

YGRDIN 

YIN(I) 

YL(I) 

YU (I) 


DESCRIPTION 

vector array of length IMAXI of user-supplied x-mesh 
points; normalized by airfoil chord; maximum of 100 

vector array of length NL of x-ordinates of the airfoil 
lower surface; normalized by airfoil chord; maximum 
of 100 

vector array of length NU of x-ordinates of the airfoil 
upper surface; normalized by airfoil chord; maximum of 
100 

control for input of user-designated y-grid; equal to 

.T. or .F. 

vector array of length JMAXI of user-supplied y-mesh 
points, normalized by airfoil chord for PHYS == •T.; 
maximum of 100 

vector array of length NL of y-ordinates of the airfoil 
lower surface; normalized by airfoil chord times thick- 
ness ratio; maximum of 100 

vector array of length NU of y-ordinates of the airfoil 
upper surface; noimalized by airfoil chord times thick- 
ness ratio; maximum of 100 


4,2,2 Control options .- Those input variables which allow the user 
to select the various options incorporated in this program are detailed, 
in this section together with the options they control. 

Airfoil geometry option ; Four choices are available to the user for 
the specification of the airfoil geometry. Selection is made according 
to the value specified (1, 2, 3, or 4) for the integer index BCFOIL. For 
BCFOIL = 1, the program uses the symmetric NACA four-digit (OOXX) series 
geometry; for BCFOIL =2, a parabolic-arc profile is used; for BCFOIL = 3, 
user-supplied values of upper and lower airfoil ordinates (YU (I), YL(L)) 
versus abcissas (XU (I), XL (I)) are required by the program, which then 
calculates internally the ordinates and slopes at the input mesh points 
by cubic spline interpolation — under this geometry option, a default air- 
foil (Korn) is provided; for BCFOIL = 4, the user provides his own speci- 
fication (i.e., ordinates and slopes at the input mesh points) of the 
airfoil geometry. We note that the last option (BCFOIL =4) is, of course, 
open (inactive) and requires user-supplied information in subroutine BODY. 
If a formula is available for the airfoil profile desired, this option 
should be used. Implementation is straightforward and an illustrative 
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example is given below. Consider the symmetric profile formed by the 
sinusoidal curve given by: 



so that 






dx 


1 

+ - sin(TTx) 
+ ^ cos (ttx) 


Thus, the following FORTRAN statement changes would be entered into sub- 
routine BODY, Immediately after statement number 400 (see the listing of 
subroutine BODY in the Appendix) , the abnormal stop message and STOP card 
would be removed and the following statements inserted; 


PI = 3.1415927 
IC = 0 

DO 425 I = ILE, ITE 
IC = IC + 1 
Z = XIN(I) 

Zl = PI * Z 
XFOIL(IC) = Z 
FU(IC) = SlN(Zl)/2. 

FL(IC) = - FU(IC) 

FXU(IC) = PI * C0S(Zl)/2. 
FXL(IC) = - FXU(IC) 

425 CONTINUE 
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We note that it is necessary that subroutine BODY define the arrays 
XFOIL(I), FU(I) , FL{I) , FXU(IC), and FXL(I) which are, respectively, the 
x-ordinates of the input x-mesh XIN(I) which fall on the airfoil, the y- 
ordinates of the airfoil upper and lower surface divided by the thickness 
ratio, and the slopes of the airfoil upper and lower surface divided by 
the thickness ratio, all calculated at the XFOIL(I) points. 

Flow environment option: To specify the type of flow environment; 

that is, free air or tunnel simulation conditions, the integer index 
BCTYPE must be set. Six different choices have been incorporated in the 
program according to the following schedule: 


BCTYPE 

1 

2 

3 

4 

5 

6 


Flow Condition 
Free air 

Solid wall tunnel 
Free jet 

Ideal slotted wall tunnel 

Ideal porous/perforated wall tunnel 

General tunnel wall 


The program default value is BCTYPE = 1. 

Conservative differencing option: An option has been provided for 

the user to specify whether conservative or nonconservative differencing 
be used at shock waves. This choice is made according to the logical 
index FCR: 


FCR Shock Difference Type 

.T. Fully conservative 

.F. Nonconservative 


Program default value is FCR = .T. 

Mesh refinement option: A convergence acceleration feature has been 

incorporated in the program which provides the user the option to initiate 
the iterative solution on a mesh that is coarser than the input mesh (fine 
mesh) on which the solution is ultimately desired. Provision has been 
made for two automatic grid reductions (medium and coarse) by the program. 
Since the grid change is accomplished by the deletion of every other mesh 
point, the following simple rules should be followed in specifying the 
input (fine) grid to take full advantage (i.e., two cuts) of this feature. 
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These rules consist of making the following grid point differences a 
multiple of four, 

IMAXI - ITE 
ITE - IMIN 
JMAXI - JUP + 1 
JXOW - JMIN + 1 

which insure that each of the above four grid intervals can be halved 
twice. See Section 5.1 under COM 1 for a description of these indices. 

The control for mesh refinement is made by specification of the 
integer index ICUT according to: 

ICUT Comment 

0 Input mesh used to convergence 

1 Input mesh may be cut once 

2 Input mesh may be cut twice 

We note that for the cases ICUT = 1 or 2, if the grid criteria given 
above are not met, the program will try to adjust if possible the grid by 
adding (never deleting) points. However, since the stated conditions are 
so mild, it is recommended that they be followed directly if the grid 
refinement option is desired. Program default value is ICUT = 2. 

Intermediate printout option : If the user wished to obtain inter- 

mediate information concerning the convergence of the solution, an option 
is provided which will cause a limited printout to occur each time a 
specified number of iteration sweeps through the flow field are completed. 
Output includes iteration count, lift and moment coefficients, iteration 
error in circulation, and absolute values and locations of the maximvim 
iteration error in 0, the residual and the upper and lower surface 

pressure coefficients. Control is through specification of the integer 
• th 

xndex IPRTER which causes output print every IPRTER iteration sweep 
through the field. Program default value is IPRTER =0. 

Kutta condition enforcement option : If, in lieu of enforcing the 

Kutta condition, the user wishes to specify instead the lift coefficient, 
an option has been provided in the program to accommodate this . Control 
for this option is through the logical index KUTTA where 
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KUTTA 


Coimnent 


,T. Kutta condition enforced 

,F. Lift coefficient specified; trailing-edge 

pressure discontinuous 

Program default value is KUTTA = .T. 

Physical or transonic I/O scaling option: A user choice for the type 

of scaling used in the input/output is available through the logical index 
PHYS. The I/O can be in either the usual physical scaled form 
(PHYS = .T.); that is, lengths normalized by airfoil chord, c, velocities 
by free-stream velocity, U^, pressure by free-stream dynamic pressure, q^, 
etc., or in the appropriate transonically scaled form (PHYS = .F.). If 
transonic scaling is used, we note the following requirements: the lateral 

coordinate of the input grid must be scaled according to 


= 6^/V 


the angle of attack by 


a = a/ ( 6 • 1 80 ^/tt) 


the half -tunnel height by 


H 




H 


the lift coefficient CLSET by 

(CLSET) = CLSET/6^/^m”^ 


the porosity by 


~ . X / 3 m 

P = P/6 


the velocity potential by 

^ 00 ^ 


and instead of specifying the Mach number, M^^, 
K must be given, where 


K 


1 - m: 




the similarity parameter 


26 



and where the exponents (m,n) depend upon the choice of scaling and are 
defined in Table 4-1. Program default value is PHYS = ,T, 

Flow field printout option : In the final printout of a completed 

calculation, the user has the choice of obtaining flow field information 
[i.e,, pressure coefficient, flow angle, and either local Mach niimber 
(PHYS = .T.) or local similarity parameter (PHYS = .P.)], either throughout 
or in a limited region of the flow field. This is controlled through the 
integer index PRTFLO according to 


PRTFLO 

1 

2 

3 


Flow Field Printout 

None 

All 

I n+i n I 

Three J lines about 0. . - 0. . line 

' j j 1 j j 1 


Program default value is PRTFLO = 1. 


Result storage option; If at the completion of a calculation the 
user wishes, in addition to obtaining the printed output, to store the 
results on tape for future use, an option has been provided whereby the 
program will write the following information on tape 3: 


( 1 ) 

( 2 ) 

(3) 

(4) 

(5) 


run title 

grid dimensions; IMAXI, JMAXI, IMIN, JMIN 

^L* ^oo> volume, far field doublet strength 

X and Y grid arrays 


Control is through the logical index PSAVE according to 


PSAVE Storage 

,T. Results stored on tape 3 

.F. No storage 

Program default value is PSAVE = .F. 

Initialization of 0 option; Three choices are available for 
initializing the 0 array to start the calculation. Selection is made 
according to the integer index PSTArt where 



PSTART 


Initialization of 0 


1 Set to zero 

2 Read from tape 7 

3 Used from previous case 

Program default value is PSTART = 1. 

Transonic similarity definition option : Four choices are available 

to the user for the specification of the particular transonic similarity 
form of the small -disturbance equation to be solved. The first three of 
these choices (SIMDEF = 1, 2, or 3) have been incorporated into the 
program and are detailed below. The fourth (SIMDEF = 4) is an open 
(inactive) option, requiring user-supplied definitions of the various 
scaling parameters calculated in subroutine SCALE. 

The three active options reflect the different scaling rules of 
Cole, Spreiter, or Krupp and depend essentially upon the choice of values 
for the exponents (k,m,n) in the following representations of the small- 
disturbance perturbation velocity potential equation, stretched-lateral 
coordinate, and transonic similarity parameter; that is, 

[(1 - ^ 't ^ + <D =0 

I 00 X 2 00 xjx yy 

or 

[~K0 - ^ ^ 0^1 + 0 — = 0 

I ^x 2 ^x Jx ^yy 

where 

$(x,y) = (x,y) 


. -1/3 -m 


1 - 


Y 

2 


K = 


M 


2m^ 2/ 3 


The values of the exponents (k,m,n) for each of the three cases are given 
in Table 4-1. Selection of the particular scaling rule according to the 
value of SIMDEF is 
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SIMDEF 


Scaling 

1 Cole 

2 Spreiter 

3 Krupp 

4 User defined 

Program default value is SIMDEF = 3, 

Default grid option ; Two different sets of default grids have been 
incorporated in the program. These are the Krupp mesh defined in reference 
2 and an analytical mesh based on a modified version of the grid discussed 
in reference 11. The program default x-mesh is the Krupp x-mesh XKRUPP(I), 
given in reference 2, while two default y-meshes are incorporated; that is, 
the Krupp y-mesh for free air calculations YFREE(I) and a modified y-mesh 
YTUN(I) for tunnel simulations. To use the analytical mesh, control is 
through the logical variable AMESH according to 


AMESH Grid Specification 

.T. Analytical mesh used 

.F. Either Krupp or user-specified mesh used 

Program default value is AMESH = .F. 

Input grid option ; If the user wishes not to employ the default 
grids incorporated in the program, an option has been provided whereby 
an arbitrary mesh can be conveniently supplied to the program. Control 
is through the logical variables XGRDIN and YGRDIN according to 


XGRDIN 

,T. 

.F. 

YGRDIN 

.T. 

.F. 


Grid Specification 

x-mesh provided by user in input data 
Default x-mesh used 

Grid Specification 

y-mesh provided by user in input data 
Default y-mesh used 


When the grids are user supplied, each element of the grid is de- 
fined in the input data, as illustrated in section 4.2.4. We note that 
the program default x-mesh is the Krupp x-mesh XKRUPP(I) defined in 
reference 2, while two default y-meshes are incorporated; that is, the 
Krupp y-mesh for free air calculations YFREE(I) and a modified y-mesh 
YTUN(I) for tunnel simulations. Program default values are XGRDIN = .F. 
and YGRDIN = .F. 
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4.2.3 Default values .- Each input variable has been assigned a 
default value that is stored in the BLOCK DATA subroutine. Consequently, 
unless the user wishes to change a variable from its default value, it 
is not necessary to enter it in the input data block. For convenience, 
the default values of all the input variables are tabulated below: 


Variable 

AK 

ALPHA 

AMESH 

BCFOIL 

BCTYPE 

CLSET 

CVERGE 

DELTA 

DVERGE 

EMACH 

EPS 

F 

FCR 

GAM 

H 

ICUT 

IMAXI 

IMIN 

IPRTER 

JMAXI 

JMIN 

KUTTA 

MAXIT 

NL 

NU 

PHYS 

POR 

PRTFLO 
PSAVE 
PS TART 
RIGF 
SIMDEF 


Default Value 

0 . 

0.12 

.F. 

3 

1 

0 . 

0.00001 

0.115 

10 . 

0.75 

0.2 

0 . 

.T. 

1.4 

0 . 

2 

77 (Krupp grid) 

1 

10 

56 (Krupp grid) 

1 

.T. 

500 

75 (Korn airfoil) 
100 (Korn airfoil) 

.T. 

0 . 

1 

.F. 

1 

0. 

3 
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variable 


Default Value 


WCIRC 

WE(I) , (I = 1,2,3) 

XGRDIN 

XIN(I) 

XL(I) 

XU (I) 

YGRDIN 

YIN(I) 

YL(I) 

YU (I) 


1 . 

1.8,1.9,1.95 

.F. 

XKRUPP(I) 

(Korn airfoil) 
(Korn airfoil) 

.F. 

YFREE(I) or YTUN(I) 
(Korn airfoil) 
(Korn airfoil) 


It is important to realize that the above variables assume their 
default values only before the first case is run. Input variables, once 
user specified, are not changed internally by the program; thus, it is 
unnecessary to respecify them in siibsequent cases if their values are to 
remain constant. 


4.2.4 Input data format .- With the exception of a run title card, 
which is the first card of each case and on which the user can provide any 
alphanumeric information desired in columns 1 to 80, all of the input data 
for the program are read in under a NAMELIST format called INP. Conse- 
quently, the input format is most easily demonstrated by an example. 
Consider two cases of simulating the flow of air (Y = 1-4, default) past 
an NACA 0010 airfoil in an ideal slotted wall wind tunnel where the slot 
parameter is 0.07, and the tunnel half -height-to-chord ratio is 6.5. For 
the first case, the free-stream Mach number is 0.70, the angle of attack 
is 1.5°, and it is decided to match the measured tunnel lift coefficient 
of 0.187. The fully conservative equations (default) will be solved on 
the YTUN (tunnel default) y-grid and the basic Krupp XKRUPP (default) 
x-grid, employing the mesh refinement option with two grid halvings 
(default) . The maximum number of iteration sweeps allowed will be 250, 
with intermediate printout desired after every fifth sweep, a convergence 

— 4 

criterion on 0 of 1x10 , a divergence criterion of 10. (default) , with 

final flow field printout confined to three rows centered about the maxi- 
mum iteration error in 0, and with the final results stored on tape 3. 

The transonic equation will be used in the similarity form as given by 
Spreiter, with the input/output in physical scaling terms (default) , with 
the initial guess of 0 equal to zero (default) , and with the circulation 
relaxation factor equal to 0.9, the three elliptic relaxation factors 
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equal to 1.3, 1.6, and 1.9 for the coarse, medium, and fine grids re- 
spectively, The pseudo-time term will be omitted from the differential 
equation (€ = 0.). 

For the second case, all of the input parameters will be identical 
to the first except that the Mach niimber will be equal to 0.72 and the 
measured lift coefficient equal to 0.195. 

Thus, the input data cards would read (note that with a NAMELIST 
format, input variable sequencing is arbitrary) : 


CARD NO. 1 - RUN TITLE CARD 


COLUMN NO. 

^ — — 

80 


SAMPLE CALCULATION NO. 1 

CARD NO . 2 



COLUMN NO. 

2 6 

80 


$INP EMACH= . 7 , F= . 0 7 , AL PHA= 1 . 5 , H= 6 . 5 , DELTA= . 1 , BCFOIL=l , 

CARD NO. 3 



COLUMN NO. 

2 

80 


KUTTA= . F . , CLSET= . 187 ,MAXIT= 250,1 PRTER= 5 , CVERGE= .0001, 

CARD NO. 4 



COLUMN NO. 

2 

80 


PRTFLO=3,PSAVE=.T. ,SIMDEF=2,WCIRC= .9,WE (1)=1.3,WE (2)=1.6, 

CARD NO . 5 



COLUMN NO. 

2 

80 


WE(3)=1.9,EPS=0. , 

CARD NO. 6 



COLUMN NO. 

2 



80 


$END 

CARD NO, 7 - 

RUN TITLE CARD 


COLUMN NO. 

1 

00 


SAMPLE CALCULATION NO. 2 | 
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CARD NO. 8 


COLUMN NO. 

2 

6 

80 


$INP 

EMACH= . 72 , CLSET= . 195 , 


CARD NO. 9 




COLUMN NO . I 

2 


80 


CARD NO. 10 
COLUMN NO. 


$END 


1 

80 

FINISHED 



We comment that the last card in the input data, following the final 
data card for the last case, must contain the word FINISHED in the first 
eight columns. This signals the prograim that there are no further cases 
to calculate and that the program is to stop. 


If for 
grids, this 
XGRDIN and Y 
IMAXI and JM 
identifying 
in the input 
grid. Then, 
would be (us 

the above cases the user wished to supply his own x— and y- 
would have been done by setting the grid input controls 
GRDIN equal to TRUE, specifying in the input the integers 
AXI, subject to the restriction IMAXI, JMAXI ^ 100, and then 
all of the IMAXI values of XIN(I) and JMAXI values of YIN (I) 
data. For example, say that the user has an 81x60 (x,y) 
the card data to be included in the input for the first case 
ing some ficticious values for XIN, YIN) : 

COLUMN NO. 

2 

80 


XGRDIN=.T.,IMAXI=81,XIN(1)=-3.0,XIN(2)=2.9, . . . 


! etc. 


COLUMN NO. 

2 

80 1 


XIN(80)=1.9,XIN(81)=2.0,YGRDIN=.T. , JMAXI=60,YIN (1) =-6. 5, 


1 etc . 


COLUMN NO. 

2 

80 


YIN (59) =6. 4, YIN (60) =6. 5, 

A similar procedure would apply if the user wished to supply his 

own 


description of the airfoil surface; that is, arrays XL(I), YL(I), XU(I) , 
and YU (I) . 
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4,3 Error and Information Messages 


The error and information messages printed by the program are listed 
in this section together with a brief explanation of why they occur and 
what to do when they are encountered. The first group of messages (1 to 
12) is concerned with input quantities while the second group {13 to 21) 
occur during the execution of the program and involve certain limitations 
inherent in the methods used in this program. 

(1) IMAX OR JMAX IS GREATER THAN 100, NOT ALLOWED 

This message indicates that the input mesh size limitation IMAX, 

JMAX < 100 has been violated. 

(2) X MESH POINTS NOT MONOTONIC INCREASING 

This message indicates an error in the input x-mesh that violates 

the condition X. > X. 

1 1-1 

(3) Y MESH POINTS NOT MONOTONIC INCREASING 

This message indicates an error in the input y-mesh that violates 
the condition Yj > Yj_^. 

(4) MACH NUMBER NOT IN PERMITTED RANGE (0.5, 2.0) 

This message indicates that the input free-stream Mach number M^ is 
outside the nominally accepted transonic regime. A scheme solving the 
linear small -disturbance equation, rather than the nonlinear transonic 
equation solved in this program, should be employed. 

(5) ALPHA NOT IN PERMITTED RANGE (-9.0, 9.0) 

This message indicates that the input angle of attack is beyond the 
range in which small -disturbance theory is considered valid; that is, 

-9° < a < 9°. 

(6) DELTA NOT IN PERMITTED RANGE (0.0, 1.0) 

This message indicates that the restriction on thickness ratio, 

0, < 6 < 1., has been violated, 

(7) AK = 0. VALUE OF AK MUST BE INPUT SINCE PHYS = .F. 

This message indicates that the transonic similarity parameter 
K = (1 - mJ)/M^^ 6^'^^ has not been input as is required when transonic 
rather than physical scaling; that is, PHYS = .F., is used in the input/ 
output . 
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(8) MACH NUMBER TOO CLOSE TO 1., NOT ALLOWED 

This message indicates that the input free-stream Mach number M^ is 
too close to one; that is, |m^ - 1. [ < 0.001. This is unallowed since the 
program incorporates a representation of the far field solution containing 
the factor 1/ / K ~ 1/jM^ - To correct this a special sonic free- 

stream far field solution would be required, 

(9) ABNORMAL STOP IN SUBROUTINE BCEND 
BCTYPE = 6 IS NOT USABLE 

This message indicates to the user that the general tunnel wall bound- 
ary condition BCTYPE = 6 is an inactive option for which conditions have 
not yet been worked out. 

(10) ABNORMAL STOP IN SUBROUTINE BODY 
BCFOIL = 4 IS NOT USABLE 

This message indicates to the user that the airfoil geometry specifi- 
cation BCFOIL = 4 is an inactive option requiring user definition. For 
details on necessary user input, see section 4.2.2. 

(11) ABNORMAL STOP IN SUBROUTINE FARFLD 
BCTYPE = 6 IS NOT USABLE 

See message (9) . 

(12) ABNORMAL STOP IN SUBROUTINE SCALE 
SIMDEF = 4 IS NOT USABLE 

This message indicates to the user that the transonic similarity 
specification SIMDEF = 4 is an inactive option requiring user definition. 
For details on necessary user input, see section 4,2.2. 

(13) NOTE - ONE OR MORE SHOCKS EXTEND OUTSIDE OF CONTOUR 
CDWAVE DOES NOT EQUAL TOTAL WAVE DRAG 

This message indicates that some of the shock waves present for the 
case at hand extend beyond the appropriate drag contour incorporated in 
the program, so that the wave drag calculated by the program does not 
equal the total wave drag. For details on the drag contours available, 
see the description of siobroutine CDCOLE in section 5.2. 

(14) SHOCK WAVE ATTACHED TO BODY. MOMENTUM INTEGRAL CANNOT 
BE DONE. DRAG OBTAINED FROM SURFACE PRESSURE INTEGRAL. 
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This message indicates that, for reasons explained in section 5.2 
under siibroutine CDCOLE, the momentum integral method for calculating 
drag cannot be used. The drag is then calculated by integrating the 
surface pressures on the airfoil, 

(15) ***** CAUTION ***** 

SOLUTION MAY BE INVALID 

DETACHED SHOCK WAVE IS TOO CLOSE TO UPSTRE21M BOUNDARY. 

MOMENTUM INTEGRAL CANNOT BE DONE. DRAG OBTAINED FROM 
SURFACE PRESSURE INTEGRAL. 

This message indicates that the bow shock is too close (within three 
mesh points) of the upstream boundary for the momentum integral along the 
bow shock to be performed, and that the drag is obtained by integrating 
the surface pressures on the airfoil. Also, because the bow shock is so 
close to the upstream boundary, the solution may be inaccurate and it is 
recommended that the upstream boundary be displaced further from the air- 
foil and the calculation repeated. 

(16) THE INPUT MESH CANNOT BE ADJUSTED FOR CUTOUT, BECAUSE 
IMAX OR JMAX IS TOO CLOSE TO THE LIMIT OF 100. 

This message is written by subroutine CKMESH and indicates that, 
because the input mesh requirements for grid cutting described in section 
4.2,2 under Mesh Refinement Option were not met, siibroutine CKMESH has 
attempted to correct this by adding points. However, either the input 
X or Y grid is too close to the limit of 100 to allow this, with the 
result that no points are added, the mesh refinement option is bypassed, 
and the input mesh is used to convergence. 

(17) ABNORMAL STOP IN SUBROUTINE DROOTS . 

NONCONVERGENCE OF ITERATION FOR ALPHA (1) 

(2) 

This message identifies one of the constants ALPHAO, ALPHAl, or 
ALPHA2 required in the subsonic far -field doublet solution in an ideal 
slotted wind tunnel, and indicates that the iterative solution for that 
constant has failed to converge. This error message should not normally 
occur. If it does, the input values for the tunnel slot parameter F 
and wall porosity factor P should be checked. See subroutine DROOTS 
in section 5.2 for details. 
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* * * * * 


(18) ***** CAUTION 

SONIC LINE HAS REACHED A BOUNDARY 

THIS VIOLATES ASSUMPTIONS USED TO DERIVE BOUNDARY CONDITIONS. 

SOLUTION IS PROBABLY INVALID 

This message indicates that the sonic line has extended out to the 
top and/or bottom grid boundaries, and that the solution is probably 
invalid since the assumptions under v/hich the boundary conditions were 
derived have been violated. For free-stream flows, the difficulty can 
be remedied by moving the lateral boundaries out further, while for tunnel 
simulation calculations, this condition indicates that the flow has become 
choked. For the latter case, the details have not yet been worked out. 

(19) ***** CAUTION ***** 

NUMBER OF SONIC POINTS EXCEEDED 200. ARRAY DIMENSION 

EXCEEDED. EXECUTION OF SUBROUTINE MILINE TERMINATED 

This message indicated that the number of sonic points has exceeded 
200 and subroutine MILINE, which determines the locations of the sonic 
lines, has terminated calculation. For the maximum grid size (100x100) 
allowed in this program, this error message should not occur. If it does, 
the remainder of the output should be checked for unusual behavior. 

(20) ***** CAUTION ***** 

MAXIMUM MACH NUMBER EXCEEDS 1.3 

SHOCK JUMPS IN ERROR IF UPSTREAM NORMAL MACH NUMBER GREATER 

THAN 1.3 

This message is written by subroutine PRINTl and indicates that the 
maximum Mach number along the dividing streamline, which includes the air- 
foil upper and lower surface, has exceeded 1.3. Consequently, if the 
normal Mach number just upstream of the shock wave is greater than 1.3 
(this can be checked from the output of PRINTl) the shock jumps, as 
calculated by the program using isentropic small -disturbance theory, will 
be in error with the true Rankine-Hugoniot value since the usually accepted 
upper bound for validity of the isentropic assumption has been exceeded. 

(21) ABNORMAL STOP IN SUBROUTINE VROOTS 

NONCONVERGENCE OF ITERATION FOR BETA(l) 

(2) 

This message identifies one of the constants BETAO, BETAl, or BETA2 
required in the siibsonic far-field vortex solution in an ideal slotted 
wind tunnel, and indicates that the iterative solution for that constant 


37 



has failed to converge. This error message should not normally occur. 

If it does, the input values for the tunnel slot parameter F and wall 
porosity factor P should be checked. See subroutine VROOTS in section 
5.2 for details. 


4.4 Program Output 

The output generated by the program is described in this section. A 
general description of the format is provided in the first subsection, 
followed by a subsection containing several sample cases for user refer- 
ence. 

4.4.1 General description of the output .- The output format of the 
program is as follows. On the first page a header is printed giving the 
program name, some general information concerning the problem solved and 
method used, and identification of the program's authors. On the next 
page, all of the input cards for the entire run sequence are printed. On 
the first line of the third page, the information input by the user on the 
first run title card is printed. Next, all of the input variables de- 
scribed in section 4.2.1 are printed. This includes, of course, variables 
not specified in the input data and which then assume their default values. 
On the fourth page the airfoil geometry information required by the program 
is printed. First, a header is printed to inform the user whether the 
printout is in physical variables (PHYS = .T.), in which case all of the 
airfoil geometric characteristics are normalized by the chord; or if the 
printout is in transonic similarity variables (PHYS = .F.), for which the 
geometric characteristics are normalized by chord length times thickness 
ratio. Next, the maximum thickness, airfoil volume (per unit span) , and 
maximum camber are output. Finally, the ordinates and slopes of the upper 
and lower surface, together with the thickness and camber distributions 
are provided in tabular form at the input x-mesh points. On the fifth 
page, intermediate output information for the coarse mesh (if a coarse 
grid is used) is provided. This includes the elliptic relaxation factor, 
the value of e (EPS) used, and the maximum number of iterations for this 
mesh. This is followed by a heading which contains, from left to right, 
the iteration count (ITERATION) , lift coefficient (CL) , moment coefficient 
(CM) , I and J locations (lERR, JERR) where the maximum iteration error in 
0 occurs, the absolute magnitude of the maximum iteration error in 0 
(ERROR) , the I and J locations (IRL, JRL) of the maximum residual, the 
absolute magnitude of the maximum residual (BIGRL) , the absolute magnitude 
of the iteration error in circulation (ERCIRC) , the I location (ICPU) of 
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the point on the airfoil where the maximum iteration error in upper 
surface pressure coefficient occurs, the absolute magnitude of the maximum 
iteration error in upper surface pressure coefficient (CPERRU) , and the 
corresponding results (ICPL,CPERRL) for the maxim-um iteration error in 

surface pressure coefficient. A printout of these quantities is provided 

tin • 

at every IPRTER iteration until the solution either converges or 

diverges, or the iteration limit is reached; at this point, a message 
is printed indicating which of these three alternatives occurred. On the 
sixth page, the final output for the coarse mesh is given. This consists 
of the final coarse-mesh values of the lift and moment coefficients and 
tabulated values of the pressure coefficient and local Mach nuitiber (or 
local similarity parameter if PHYS = .F.) along the entire length of the 
dividing (y = 0) streamline, including both the upper and lower surface 
of the airfoil. In addition, the x- and y-coarse-mesh ordinates are also 
provided. The format is as follows. First, the lift and moment coeffi- 
cients are given, together with the value of the critical pressure coeffi- 
cient. Next, a header is printed which contains, from left to right, the 
I index of the current x-mesh point (i) , the x value of the mesh point 
(X) , the pressure coefficient (CP) , and local Mach number (Ml) just below 
the dividing streamline with the additional title ( j ^^id then the 
pressure coefficient (CP) and local Mach number (Ml) just above the 
dividing streamline with the additional title ^ _ q+) • Tabulated values 
of these quantities follow and are provided for each x-mesh point of the 
coarse grid. Locations of the airfoil leading and trailing edges are 
indicated in the output. Alongside the table of values, a concomitant 
printer plot of the tabulated pressure coefficients is given. Finally, 
all the y-values of the coarse grid y mesh are printed. On the seventh 
and eighth pages, the intermediate and final output, respectively, for 
the medium grid (if a medium grid is used) are provided in the same format 
as described above for the coarse grid. On the eight page, the inter- 
mediate output for the fine mesh is given. On the following page, the 
final print output begins for the fine mesh. On this page, information 
is provided informing the user whether the printout is in physical or 
transonic variables, and if it is in physical variables which particular 
definition of similarity parameters was used. Also indicated is the type 
of boundary condition specified (free air or type of wind tunnel) , whether 
the difference equations were in conservative form or not, and whether 
the Kutta condition was enforced or the lift coefficient specified. Next, 
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some limited airfoil geometry and flow field information is given (i.e,, 
free-stream Mach numiber and airfoil thickness ratio if physical scaling 
is used, (PHYS = .T.), plus angle of attack and transonic similarity param- 
eter in all cases, and far-field doublet strength and airfoil volume per 
unit span when < 1. Finally, if PHYS = .T., the transonic scaling 

parameters used by the program to scale the pressure, lift, drag, and 
moment coefficient, the y-ordinate, and the flow angle are printed. On 
the next page, the fine grid lift and moment coefficients, pressure coeffi- 
cients and local Mach number on the dividing streamline together with the 
X- and y-fine mesh ordinates, and a printer plot of the pressure coeffi- 
cients is given in the format previously described for the coarse grid. 

On the next page, a flow character map is provided. Each point in the 
mesh is characterized according to whether it is a parabolic point (P) , 
hyperbolic point (H) , shock point (S) , or an elliptic point (— ) . The 
following page provides a Mach number map of the flow field. Each grid 
point receives either a number or letter letter designation according to 
the symbol table provided in the plot. On the next page, a laterally 
expanded printer plot of the pressure coefficients on the dividing stream- 
line and airfoil surface is provided. For wind-tunnel wall simulation 
calculation (i.e., BCTYPE 1 or 3) , tabulated values of the pressure 
coefficient and flow angle along the entire length of the wind-tunnel walls 
(y = H+) are given next. The format is similar to that provided for output 
of the pressure distributing along the dividing streamline discussed pre- 
viously. This consists of tabulated values of the pressure coefficient (CP) 


and the flow angle (THETA) along the bottom ^ 


) 


and top OPPER 
y — — H y = +H 

surfaces of the wind tunnel at each of the fine mesh x-grid (X) locations. 

A printer plot of the pressure coefficients is also provided alongside the 
tabulated values. On the next two pages, output describing the sonic lines 
is provided. The first page gives tabulated values of the sonic line coor- 
dinates, while the second page provides a printer plot of the sonic lines 
throughout the flow field. On the following page, flow field output, if 
requested by the user, is printed. This consists of tabulated values of 
the pressure coefficient, flow angle, and local Mach number (or local 
similarity parameter if PHYS = .F.) along the entire length of y = constant 
lines on the fine mesh. The format is as follows. First, a header is 
printed which contains, in the first two columns, the I index of the 
current x-mesh point (I) and the x value of the x-mesh point (X) The next 
nine columns contain three sets of pressure coefficients (CP) , flow angles 
(THETA), and local Mach mombers (Ml) along three different y= constant 
rows, with an additional title above each of the sets indicating both the 
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J index and associated y-value of the row. Tabulated values of these 
quantities follow for each x-mesh point of the fine grid. If the flow 
field print option PRTPLO = 3 was chosen, the flow field output is con- 
fined to three J lines about the location of maximum iteration error 
in 0, and all the flow field output is contained across one page. How- 
ever, if the entire flow field is to be printed (PRTFLO = 2) , then the 
above format is repeated for three successive rows at a time until the 
entire field is covered. Following this, the shock wave drag profiles 
and total pressure loss profiles are given. For each shock wave within 
the momentum contour, the total wave drag is given together with tabulated 
values of the shock wave drag (CD(y)) and the total pressure (PO/POINF) as 
functions of the lateral coordinate (y) . On the next page, information 
regarding the drag coefficient is given. If the drag was calculated by 
the momentum integral method, the locations of the contour boundaries are 
given together with the individual contributions to the drag from the 
integrations of the drag integral along each of these boundaries. In 
addition, information regarding the n\amber of shock waves inside the con- 
tour and the total wave drag are printed. Should any of the shocks extend 
beyond the momentiim contour, a message is printed indicating this and the 
fact that the wave drag calculated does not equal the total wave drag. 
Finally, the total of all the separate drag contributions is given. If 
the momentum integral method could not be used to calculate the drag — 
either because the bow shock was attached or too close to the nose or 
because the bow shock was too close to the upstream boundary — a message 
to that effect is printed and the drag is then calculated by an integra- 
tion of surface pressures. The time to run the case in seconds is provided 
on the next page. This would conclude the output for an individual case. 
The above format is repeated until all cases are run. Following this, a 
final page of output is printed which consists simply of the word FINISHED, 
indicating a normal exit from the program. 

4.4.2 Sample cases .- In order to provide reference checks on the 
programs, six sample test cases have been run exercising a representative 
sample of the various options available. The results are provided in 
figures 4-4 through 4-9. In each case the input data are provided together 
with the corresponding output. Because of the large amount of output 
information, full program output is provided only for the first two cases 
(figs. 4-4, 4-5); however, the abbreviated output given for the remaining 
cases is sufficient to verify the correctness of the program under those 
options selected. 
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4.5 Comparisons with Data and Other Methods 

A variety of comparisons of the results predicted by the methods 
employed in this program have been presented in the literature (refs, 1, 

2, 3, 6, 7, 8, 9, and 20) . For convenience, several of those comparisons 
are briefly repeated here in order to provide the user both with a general 
assessment of the accuracy of the methods used and some idea of the typical 
solution behavior that can be expected. For further information, the user 
is referred to the excellent review article by Bailey (ref. 21) . 

Basically, the comparisons presented here fall into three categories; 
that is, (1) comparisons with exact (hodograph) inviscid solutions, 

(2) comparisons with more accurate (full inviscid, full potential) numeri- 
cal solutions, and (3) comparisons with data. The first two categories 
serve to assess the accuracy of the numerical technique and the small- 
disturbance potential approximation, while the third serves to demonstrate 
the influence of tunnel interference and viscous effects. 

In figure 4-10 a comparison is made of the small -disturbance relaxa- 
tion solutions calculated by the Krupp-Murman techniques (ref. 3) employed 
in this program with the exact hodograph solutions (ref. 22) for a NLR 
quasi-elliptical airfoil at a = 1.32°, = 0.7557. A similar result is 

shown in figure 4-11 for a Garabedian-Korn airfoil at a = 0.12°, M^ = 0.76. 
Also provided in those two figures are relaxation solutions (refs. 23 and 
24) for the full potential equation. We note that in both of those cases, 
the small-disturbance relaxation solutions and the full potential relaxa- 
tion solutions show a weak shock as compared to the exact hodograph 
solution, which is for the shock-free design condition. For the Garabedian- 
Korn airfoil, the small-disturbance solution also predicts a somewhat 
smaller expansion beyond the nose. The overall agreement, however, between 
the small -disturbance solutions and the exact and full potential solutions 
is quite good, particularly in light of the fact that flows past such 
shock-free airfoils are extremely sensitive to small changes in geometry 
and flow conditions, and therefore provide an exacting test of the accuracy 
of any transonic predictive method. Figure 4-12 shows a further comparison 
of the small-disturbance results predicted by the Krupp-Murman method and 
a relaxation solution of the full inviscid equations for a subcritical 
flow (ref. 25) . Again, the agreement is very good, even at this low 

(M =0,63) a Mach number. 

'00 ' 
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The results presented in the preceding three figures are for shock 
free flows. For flows containing shock waves, the relaxation methods used 
ahove for the full equations do not employ conservative difference oper- 
ators and -Consequently do not satisfy the proper shock jump conditions. 

Some idea of the error involved in solving the exact isentropic equation 
in nonconservative form (ref. 26) and the calculation of the isentropic 
solution using a conservative time -dependent procedure (ref. 27) is given 
in figure 4-13. Also provided is the small-disturbance result predicted 
by the present program when using the fully conservative (FCR) option. 

We note that the shock location predicted by the two conservative calcu- 
lations is essentially in agreement, while the nonconservative result 
predicts a weaker shock displaced forward of the conservative location. 

We note that the differences in shock jump values observed above between 
the two conservative calculations is not due to an accuracy problem in the 
above computations but is attributable to the difference in pressure jump 
between the isentropic approximation to the Rankine-Hugoniot relations, 
which is the jump condition satisfied in the fully conservative time- 
dependent calculation, and the small-disturbance approximation to the R-H 
conditions, which is the corresponding shock jump condition satisfied when 
using the conservative (FCR) option in this program. 

Comparisons between the fully conservative (FCR) and not fully con- 
servative (NCR) small -disturbance solutions predicted by the present 
finite-difference scheme are of interest in order to assess the differences 
between such calculations. Such results have been discussed previously in 
reference 19, and figures 4-14 and 4-15 summarize the essential conclusions 
of that study and provide a further comparison with a more exact result. 
Figure 4-14 compares the FCR and NCR solutions for the similarity surface 
pressure distributions for a svibsonic free-stream supercritical flow as 
the finite-difference grid is refined. We note that while the FCR solution 
approaches the theoretical, small -disturbance shock jump, the NCR solution 
does not. Figure 4-15 shows the corresponding result for a supersonic free 
strecim and a detached bow wave, and also includes the result of a conser- 
vative time -dependent calculation for the exact isentropic equations 
(ref. 28) . While the FCR and the time-dependent method produce essentially 
the same result, the NCR method yields too great a detachment distance. 
Furthermore, it was found (ref. 19) that the NCR method predicts shock 
jumps which are considerably in error for strong oblique shocks, although 
the results for normal and weak oblique shocks remain reasonable. We note. 
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as pointed out previously (refs, 1 and 21), in many cases of < 1 

transonic flows, the NCR predicted surface pressure distributions are 
usually in better agreement with experimental data than the FCR results, 
due to boundary-layer weakening of the shock wave. Unfortunately, this 
agreement is clearly fortuitous, and because the NCR method does not 
yield a unique solution nor account for viscous effects in any rational 
manner, it is not recommended for general use. 

In the absence of shock wave-boundary layer separation, it has been 
suggested (refs. 19 and 29) that the principal viscous effect to account 
for is the reduction in circulation from the inviscid value determined 
by the Kutta condition. This effect is illustrated in figure 4-16 where 
the data from reference 15 is compared with the two FCR small-disturbance 
solutions found by: (a) specifying the Kutta condition and (b) fixing 

the circulation at the value determined by the experimental lift. 
Considerably better agreement with data results in the latter case except, 
of course, for points, near the trailing edge. 

Finally, some indication of the effects of wind-tunnel interference at 
transonic speeds is given in figures 4-17 and 4-18. Figure 4-17 shows the 
FCR solutions for an NACA 0012 airfoil at a = 0° in free air and for an 
ideal slotted wall compared to the data taken in the RAE slotted wind 
tunnel (ref. 30) . A forward movement of the shock due to tunnel inter- 
ference is indicated. This effect is again shown by the results presented 
in figure 4-18, where data taken from the NASA/Ames Research Center 2- by 
2-Foot Wind Tunnel (ref. 1) is compared with the FCR solutions for free 
air, an ideal slotted tunnel, and an ideal slotted tunnel with the lift 
fixed at the experimental value. In this example, the effects of wind- 
tunnel interference on lift and shock position are of the same magnitude 
as the viscous effects as evident by their respective changes from the free 
air to the slotted tunnel Kutta condition result (interference effect) , 
and from the slotted tunnel Kutta condition result to the slotted tunnel 
fixed Cl result (viscous effect) . 

4.6 Program Run Times 

The development of the structure of the present code as well as the 
actual debugging process have been carried out on a Control Data Corporation 
7600 computer. Therefore, the majority of run time information and experi- 
ence is for that machine. However, the most crucial time information 
required by the general user is simply the CPU time required for one 
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iteration sweep of the flow field on a typical fine grid, since this will 
provide directly an estimate of the maximum run time required for a 
particular case. The resolution of the default free air grid (77x56) and 
default tunnel grid (77x48) used in the program is generally sufficient 
for most engineering applications, so that the time per iteration sweep 
on these grids should provide a fairly general and useful result. We 
have determined that the sweep time per iteration on these grids using 
the FTN, OPT = 2 compiler on the GDC 7600 is approximately 0.04 sec/ sweep. 
Since the medium and coarse meshes contain approximately one-fourth and 
one-sixteenth as many points, the approximate maximtim CPU execution time 
per case when employing the grid refinement option is 

Maximum CPU Execution Time = MAXIT* (1 + 1/4 + 1/16) * (0.04) sec 
(CDC 7600; FTN, OPT = 2) 

= 0.0525-MAXIT sec 

The analogous result for the CDC 6600 is 

Maximiim CPU Execution Time = 0.310 MAXIT sec 
(CDC 6600; FTN, OPT = 2) 

We note that on the analytical mesh (81x64) , the corresponding CDC 7600 
time is approximately 0.055 sec/sweep. 

with regard to improving run times, numerical experimentation has 
shown that by using the mesh refinement option execution times can be 
reduced by 30 percent to 60 percent in most cases, in comparison to the 
same calculation started and carried to completion on the fine grid 
alone. In addition, it was found that a number of cases which diverged 
when started on the fine mesh, converged smoothly on the final mesh when 
the mesh refinement option was used. Consequently, the additional 
programming required for this option appears well worthwhile in terms of 
enhanced stability and computational time. Finally, we note that a 
number of proven convergence acceleration techniques, such as the extra- 
polation methods used by Hafez and Cheng (ref. 31) have not yet been 
incorporated into the present version of the code. Future use of these 
improvements, as well as others currently under development — such as 
direct or semidirect solvers (refs. 32 and 33) and shock fitting (ref. 

34) — can undoubtedly augment the methods used in the current program. 
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4.7 Machine Compat ability 


The present code has been written in FORTRAN and primarily tested 
out on a Control Data Corporation 7600 using the FTN, OPT = 2 compiler. 
Care has been taken in the programming to insure that the code can be 
easily adapted for use on other machines. All header output statements 
are written in the universal Hollerith format. Double precision arithme- 
tic is not used. Storage requirements have been reduced as much as 
possible by the liberal use of common blocks to pass information internal- 
ly. The code has been successfully check tested on a CDC 6600 and re- 
quired no changes. 
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Spreiter 2 2/3 2/3 


Krupp 


7/4 


3/4 


1/2 
















SAMFIX CASE 1 - PROGRAM DEFAULT OPTIOH - KORM AIRFOIL 

$IHP 

$EMD 


(a) Input. 




SAMPLE 

CASE 1 - 

PROGRAM DEFAULT 

OPTION 

- KORN 

AIRFOIL 










INPUT 

PARAMETERS 




ENACH 


. 750t C 

PQR 


U. 00030 

IMIN • 

1 

8CTYPE • 

1 

AMcSN 

- F 

DELTA 


.11 sec 

CLSET 


e.oooou 

INAXI - 

77 

BCFOIL • 

3 

PriVS 

• T 

ALPHA 


.12000 

EPS 


.20000 

JNIM • 

1 

PSTART - 

1 

PSAVl 

■ P 

AK 


C.CCOOO 

RIGF 


0.00000 

JNAXI ■ 

Sb 

PRTFLO ■ 

1 

KUTT* 

■ T 

GAH 


1.400C0 

WCIRC 


1.30030 

MAXir - 

503 

IPRTER - 

1C 

FCR 

- T 

F 


0 . oooro 

CVERGE 


.00031 

NU * 

100 

SIMDEF ■ 

3 



H 


o.eoccQ 

DVERGE 


O 

a 

NL - 

75 

ICUT ■ 

2 




WE • 1.8C>1.90>1.95 
XIN 


-1.075000 

-.950000 

-.825000 

-.700000 

-.575309 

-.45!l!'0D 

-.35.^ IP .1 

-.250. ,u 

.-.175O0C 

-.125ULJ 

-.075000 

-.052500 

-.035090 

-.322500 

-.OlLjlO 

— .0v75i 9 

-.002500 

.302503 

.007500 

.012500 

.J173liD 

.922500 

.027300 

. 032SO0 

.037500 

.0450(^0 

.055000 

.065003 

.375900 

.385390 

.■:975.;;. 

. Il5 .‘C4 

.140625 

.171875 

.2C3125 

.234375 

.265625 

.296875 

.328125 

. 359375 

.390625 

.421875 

.453125 

.484375 

.515625 

.5466 75 

• 57bi 25 

.009375 

.640625 

.671875 

.703125 

.734375 

.765625 

,796875 

.828.25 

. 8593 75 

.885000 

.9090UG 

• 915oi;0 

.930000 

.945000 

.960000 

. 9 75'jOO 

.990060 

1.000000 

l.OlOlPJ 

1.025030 

1.050093 

1.39l'j9I> 

1.I50J03 

1.223. Co 

i.30C.C,u 

1.40000C 

1.500000 

1.6Z5U00 

1.750090 

1.875000 




riN 

-5.200000 

-4.400303 

-3.6OO0C0 

-3.000003 

-2.40CC90 

-1.95J001 

—1 .600000 

-i. 35000C 

-1.150000 

-.950000 

-.eoooco 

-.650000 

-.550300 

-.450l'OS 

-. 3 9'j. ifO 

-. 34,' 33'. 

-.300000 

-.270000 

-.243303 

-.21000C 

-.leuuou 

-.150000 

-.125000 

-. 100000 

-.075000 

-.050000 

-.030300 

-.010000 

.uieoai 

.93000;' 

. 5 V ; j 

.■>75Jf-'- 

.100000 

.125jtn' 

.150000 

.180000 

.210000 

.240000 

.270300 

.33.-;-6 3 

.340000 

.390003 

.453009 

.550000 

•650000 

.800000 

.95u000 

1 • 150000 

1.350000 

1.600303 

1.950J3C 

2.4L'9030 

3.3O0C00 

3.60C00C 

4.4V.J. 0 

5.26030. 

XU 

.000008 

.OC0167 

.030391 

.^03799 

. J01497 

.902153 

.003331 

.005336 

.008648 

.014583 

.U23481 

.033891 

.34J887 

.953973 

.: 3c921 

. 356456 

.059966 

.061445 

.062909 

.065925 

.068785 

.071482 

•074.J7 

.675322 

.076603 

.377862 

.079112 

.089445 

.301819 

.983269 

. J84841 

.086762 

.088848 

.091378 

.094413 

.398308 

.103104 

•10901C 

.116344 

.125452 

.136635 

.150037 

.165853 

.184599 

.195177 

.206361 

.218244 

.236813 

.244047 

.257917 

.272371 

.2S741C 

.302990 

.319057 

.335j55 

.352421 

.369591 

.386995 

.404133 

.421391 

.438708 

• 456C 13 

.473246 

. 4 9. 343 

.507242 

.523881 

.539536 

.554867 

.569823 

.584351 

.596405 

.611936 

.624904 

.637273 

.646435 

.659016 

.668987 

.678321 

.6o?Jl2 

.695j96 

.706936 

. 7284U6 

.738649 

.761390 

.777010 

.792241 

. 809a&8 

.824992 

.836953 

.857188 

.875621 

.698268 

.913086 

.927686 

.939804 

.952302 

.971789 

.989100 

.997860 

I.0C9303 





-TO 

.000787 

.003092 

.034536 

.336137 

.007683 

.009056 

.010675 

.9128C3 

.015607 

.019624 

.024441 

.029935 

.331696 

.035966 

.,36837 

.037277 

.037700 

.038103 

.038497 

.039276 

•039986 

.04r625 

•34il95 

.'341483 

.041756 

.042319 

.042274 

.342539 

.342804 

.3.43079 

.043368 

.043700 

.044072 

.044497 

.044989 

.045595 

.046312 

.947154 

.348.32 

.649361 

.050026 

.052389 

.353663 

.055351 

.056210 

.357068 

.057918 

.058751 

.059559 

.060335 

.061068 

.961751 

.062381 

.962947 

.063445 

.053867 

.064213 

.064473 

.064646 

.064733 

.064735 

.964651 

.364477 

.664216 

*063871 

.063438 

.062945 

.062376 

.361731 

.361014 

.060232 

.059369 

.058496 

.057562 

.056650 

.M5721 

.054791 

.953867 

• 3 52 9 65 

.'352386 

.050722 

.048045 

.046680 

.0434 <1 

.U41053 

.038606 

.035768 

.332956 

.030775 

.026954 

.023361 

.018848 

•015750 

.012954 

.010567 

.008213 

.004559 

.001620 

.003293 

0.099999 






Figure 4-4,— Sample teat caea 1 - program default option — aubaonic, 
free air almulation (full output) : Korn airfoil, 

0.115, a m 0.15", “ 0.75. 


SO 



XI 


0.000000 

.000012 

.061093 

.303183 

.000249 

.000348 

.00.455 

.oOJcBu 

.001011 

.001481 

.001875 

•3to2316 

.0C3J55 

.0C42C1 

.064747 

,005779 

.007035 

.008265 

.0C9969 

.312286 

.0.15346 

.019276 

.326335 

.:j293 79 

.039095 

.052516 

.362469 

.373329 

.085290 

.099822 

.118563 

. 140987 

.167184 

.202933 

.228511 

.247895 

.263995 

.282047 

.297-45 

.31)14? 

.324075 

.344872 

.363532 

.387644 

.404492 

.426308 

.45C Jl6 

.•*753/8 

.521837 

.549843 

.578612 

.63531)5 

.623479 

.642152 

.657543 

.671212 

.690340 

.708891 

.726684 

.746683 

.768502 

.784892 

.8>.li.49 

.819167 

.838548 

.858817 

.879431 

.903723 

.926504 

.943652 

.95bo63 

.973623 

.986187 

.996582 

I.0003UO 






YL 

1). 000000 

-.000700 

-.331385 

-.002168 

-.003330 

-.00388C 

-.0C4379 

-.005199 

-.006133 

-.007183 

-.ut;793 3 

-.308676 

-.339776 

-.'311264 

-.olio. 3 

-.012861 

-.013983 

-.014962 

-.aibl7S 

-.017636 

-.019336 

-.021258 

-.028830 

-.025373 

-.026634 

-.032423 

-.U34840 

-.337182 

-.039456 

-.341862 

-.044483 

-.04701/ 

-.049298 

-.051443 

-.052406 

-.052859 

-.053062 

-.353117 

-.6-52-27 

-.:--52i49 

-.052562 

-.051951 

-.051218 

-.050013 

-.649004 

-.047495 

-.C45d 51 

-.043288 

-.038336 

-.034916 

-.631104 

-.327333 

-.024661 

-.3218 54 

-.019317 

-.017429 

-.014527 

-.U11771 

-.009228 

-.006537 

-.0U3868 

-.002C86 

-. JU.3 24 

...bi, 35-. 

.002227 

.003224 

.363885 

.334212 

.0C4067 

.003657 

..103307 

.0'J2242 

.001329 

.000376 

O.uooooo 







AIkFQIL GdQHcIRY OUTPUT 


PRINTOUT IN PHYSIC 

AL VARIABLES 

NORflALIZED BY 

CHORD LENGTH 


hXX THICKM 

SS • .11 

AIRFOIL VOLUME* 

.07556017 




MAX CArtBcK 

• .,1 

INPUT GRID 

UPPER SURFACE 

L3nER 

SURFACE 



X 

Y 

OY/OX 

V 

Dy/DX 

THICKNESS 

CAMdbR 

.00250000 

.00959171 

1.45523113 

-.30896517 

-1.54389947 

•I j927644 

. .v..3.3i,7 

.0075(0CC 

.61470383 

.81287528 

-.01436528 

-.80527524 

.}1463455 


.0125C060 

.01831665 


J1776230 

-. 58763322 

•01803922 

• 00U27 bb4 

.01750000 

.02132582 

.56042563 

-.02341959 

-.48511465 

.02v.B727r- 

• w:u4J3i.2 

•O225COO0 

•023959CB 

• 496^f;o64 

-.1)2267732 

-• fr222&950 

.02331642 

• L'j4o64Cbt' 

•02756UOO 

.02631987 

.44956493 

-.32467419 

-. 37876104 

.325497: 3 

. .'OC82284 

.03250000 

.02846698 

.41150450 

-.02648065 

-. 3449581J 

.3274 74U2 

. ;• , 99416 

.0375C060 

.03644665 

.3 7997:980 

-.02813392 

-.31735008 

.32929028 

•toil 

.04500000 

.03312592 

•33599923 

-.03038772 

-.28473671 

.33175682 

. w'L13a9i; 

.0550C0C0 

•03627290 

•29719151 

-•03305353 

24^9 7457 

•03466322 

• Ji^lLJ9b6 

.06330000 

.639C411I 

.25643566 

-.03541151 

-. 22262497 

.03722631 

.'3016148C 

.07500000 

.04141316 

.21765425 

-.03751775 

-.199;,9>57 

. 33946548 

! *9-*769 


• 0<>23967^ 

•1805^045 

-.03940423 

-.17578220 

•04i4CC49 

• . '.’*99 oS t 

.097SC00C 

.04547125 

.15371664 

-.34150110 

-.15725685 

.04348617 

• ? 

.11500001 

•C4796777 

.13267017 

-•0^^02275 

-. 13157240 

• 'J4!>99t26 


.14062500 

.051L7S17 

.-1.07138 

-.04693:67 

-. 1L^5 5417 

.04902792 

. ju2. 4 /25 

.17187500 

.0542233.6 

,09136735 

-•O«»9&309o 

07'wt>49C 1 


• u .22922 j 

.20312506 

.056825 72 

.07560296 

-«051<i5ldd 

-• a4ol7962 

..»543 

• / 

.23437500 

.C5897522 

•06223396 

-.05256752 

-.U2573214 

• J557713 1 


.26562500 

.06073549 

•03033^93 

-.05307432 

-.UC71C822 

• J569..49i 

• w 3c j , 5 9 

.29687500 

.6621432(1 

.039938U 

-.05302671 

•0C999124 

.05758595 

•w045j724 

.32812500 

.06323120 

.02994726 

-. 15246 jj.3 

. 026171 j9 

. 15784560 

.00536553 

.35937500 

.06401751 

•02C66257 

-.05134534 

• J41947J6 

. J577U642 

. 63.ij9 

.39062500 

.06451653 

.01150033 

-•9^9644^6 

•^5725376 

• aSp71d051 

• ooy J.»6C2 

.42187500 

.06473420 

,00241416 

-.04781989 

. 172^4666 

. >562771 5 

« .••'«b43 715 

.45312500 

.06467130 

-,00658035 

-.04533303 

.08089732 

.35503219 

.. .96-3911 

.48437500 

.06431853 

-.0159.653 

-.34240L41 

.10'',5552e 

•05335947 

.u1L'9590o 

.51562500 

.06 366431 

-.026C3701 

-.03905118 

.11380738 

.75135775 

. ,123.657 

.54687500 

•06268375 

-•C3696603 

-•0352V276 

• 1264:i356 

• 34996827 

. j1 J09548 

.57812500 

.06133234 

-.04979547 

-.03117083 

.16715576 

• j462S:59 

..'.5.8,75 

.609375CC 

.05955542 

••06<*36O6l 

-.02674112 

.14591750 

.34314827 

■ (. 1 7* 5 

.64062500 

.05729524 

-.08.46377 

-.02208495 

.15119319 

.J3969C10 

.61763515 

.67U7500 

.05451046 

-.l;98C 2562 

-.01732781 

.15200505 

.33591913 

.61859132 

.703125CC 

.05117016 

-•lXo4699.i 

-.01261849 

•147B041C 

.03189432 

• :i9t7583 

.73437500 

.04725652 

-.1337C925 

-.09816935 

.13583154 

.32771293 

.01954359 

.76562500 

.C428CE23 

-.15103101 

-.00420143 

.11693724 

.32350383 

.9l9a-/Z4. 

.79687500 

.03783843 

-.16679849 

-.00091374 

.09298191 

.31937609 

. 31646235 

.82812500 

.8323920C 

-.18132523 

.00157684 

.06659416 

.01546658 

• v2l&9o542 

.85937500 

.02653266 

-.19298838 

.00324655 

. 04013531 

.01164305 

• J^4bd9bi 

.88500000 

.02150184 

-.39909863 

.1S40832S 

• A;ia934L5 

.00874929 

.(U27>254 

.90000000 

.01650018 

-.2CC 87864 

. 00419331 

.00644729 

,30735319 

» JAib47i>w 

.91500000 

.01548642 

-.20052560 

.00419672 

-•00623884 

.30564535 

• '.‘wVBtlu 7 

.93001000 

.01249528 

-.197973V6 

.00400511 

-.01924B2C 

•S0424508 

..jjd25ui9 

.94500000 

.00955711 

-.19341343 

.09361309 

-.03322763 

.00297201 


.96000000 

.C0670666 

-.18613192 

.00300379 

-.04814189 

.00185143 

.00485522 

.97500000 

.00399207 

-.17519895 

.00215209 

-.06622514 

. J0092i;rL 

•00307208 

.99000000 

.00147612 

-.15923679 

.00100946 

-.08737525 

.00023333 

• i«M i 2427 V 

1.00000000 

O.OOOCCOOO 

-.13691569 

S. 00000003 

-.11000585 

C.^COCCuC;; 

0. OOCCOOOO 


Figure 4-4.- 
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HE - - I.IOM 


EPS - 


.ZDOO 


IMTERHEOIATE OUfrUT FOI COARSE HESi 


HAXIT FOR THIS MESH - 125 


ITERATION 

CL 

CM 

lERR 

JERR 

ERROR 

IRL 

JRL 

DI6RL 

ERCIRC 

ICPU 

CPERRU 

ICPL 

CPERRL 

10 

.49126 

-.16416 . 

12 

7 

.46B4E-01 

6 

7 

.9957E+02 

.4366E-01 

12 

.57D3E4U0 

16 

.59368400 

20 

.92692 

-.19065 

9 

4 

.1996E-01 

6 

7 

.1756E-F03 

.7sa8E-a2 

16 

.9519E-01 

6 

.20338400 

30 

.96601 

-.19209 

9 

7 

•7916E-02 

6 

7 

.9360EP02 

.5803E-32 

8 

.102JE4DO 

10 

.39318-91 

40 

.99963 

-.15427 

10 

7 

.4266E-02 

6 

7 

.4973E+02 

.2191E-02 

9 

.73498-31 

7 

.28378-01 

90 

.60322 

-.19424 

5 

7 

.2120E-02 

6 

7 

.2546EA02 

.16018-02 

9 

.3169E-01 

7 

.12758-01 

60 

.60992 

-.15472 

11 

7 

.1166E-02 

6 

7 

.135DE-»02 

.7924E-33 

9 

.X804E— t)l 

7 

.73286-02 

70 

.61343 

-.15498 

9 

7 

.6631E-03 

6 

7 

.7928E+01 

.9202E-D3 

9 

.9775E-02 

7 

.2B19E-02 

80 . 

•61994 

-.15912 

6 

7 

.3844E-03 

6 

7 

.4995E+01 

•2905E-93 

9 

.5994E-02 

7 

.1781E-02 

90 

.61678 

-.15520 

9 

7 

.2290E-03 

6 

7 

.2686E*01 

.17408-03 

9 

.3S47E-02 

7 

.10188-92 

100 

.61791 

-.15525 

5 

7 

.1318E-03 

6 

7 

.1973E+01 

.10148-03 

9 

.21038-02 

7 

.5931E-03 

110 

.61793 

-.19528 

5 

7 

.7719E-04 

6 

7 

.9203EA00 

.5952E-94 

9 

•1241E-02 

7 

.34968-03 

120 

.61818 

-.15530 

9 

7 

.45Z1E-04 

6 

7 

.5391EPO0 

.3489E-04 

9 

.72998-03 

7 

.2041E-03 


*••*** iteration limit reached 


FINAL OUTPUT FOR COARSE MESH 


FORCE COEFFICIENTS^ PRESSURE COEFFICIENT# AND MACH NUN9ER 
(OR SIMILARITF PARAMETER) ON DODY AND DIVIDING STREAM LINE. 

CL ■ .618266 

CM - -.195303 

CP* - -.603170 


a « BEFORE OR BEHIND AIRFOIL 
U • UPPER AIRFOIL surface 
L • LOVER AIRFOIL SURFACE 
* ■ CRITICAL PRESSURE 




LOVER 

UPPER 





Y-0- 


Y"Q + 



I 

X 

CP 

N1 

CP 

Ml 



1 

-1.075000 

•093088 

.748505 

.003088 

.748505 


8 

2 

-.575000 

.043372 

.728725 

.043372 

.728725 


B 

3 

-.175009 

.129825 

.684349 

.129625 

.684349 


B 

4 

-.035000 

.264500 

.608610 

.264500 

.608810 


8 

9 

-.002509 

.360806 

.548448 

.360806 

.548448 


8 



AIRFOIL 

LEADING EDGE 




AIRFOIL LEADING EDGE 

6 

.017500 

•630016 

.324850 

.249591 

.617627 

L 

U 

7 

.037509 

.337262 

.563801 

-.143732 

.816550 


L U 

8 

.075000 

.094363 

.723235 

-.862652 

.985196 


L 

9 

.140625 

-.182317 

.833511 

-.760830 

1.055631 


L 

10 

•265625 

-.278642 

.874419 

-.738598 

1.047965 


L 

11 

.390625 

-.230724 

.854314 

-.739994 

1.943448 


L 

12 

.515625 

-.08 6058 

.790520 

-.766144 

1.097455 


L 

13 

.640625 

.141346 - 

.678215 

-.682882 

1.028593 


L 

14 

.765625 

.364488 

.546008 

-.419234 

.930996 


L 

19 

.885000 

• 460487 

.478009 

-.118344 

.805195 


L U 

16 

.945003 

.447856 

.487498 

.109112 

.699916 


L U 

17 

l.OOCOOO 

.329958 

.566480 

.208565 

.641253 


L U 



AIRFOIL 

TRAILING EDGE 




AIRFOIL TRAILING EDGE 

18 

1.090009 

.147296 

.675027 

.147296 

•675027 


a 

19 

1.400000 

.076301 

.712149 

.076301 

.712149 


8 

20 

1.879000 

.029479 

.735607 

.029479 

.735607 


8 


T-GRID 

VALUES 

YU) J> 1 TO 

14 




.Q73D9D 

-5.200000 

-2.400000 

-1.150009 

-.550000 

-. 300009 

-.180000 

-•D75900 

.180000 

.300000 

.550900 

1. >190000 

2.400000 

9.200000 




U 


U 

u 

u 


U 


tt 


Flgur* 4 - 4 .- Continued. 



INTERHEOIATE OUTPUT FOR nEDIUH nESrt 



UE 

- 1.' 

9000 EPS 

■ 

.2000 

HAXIT FOR 

THIS 

MESH • 

ITERATION 

CL 

CM 

lERR 

JERR 

ERROR 

IRL 

JRL 

10 


.61625 

-.15287 

26 

13 

.207BE-02 

10 

11 

ZD 


.60949 

-.15190 

6 

14 

.6059E-93 

19 

14 

50 


.60690 

-.15213 

19 

8 

.2952E-03 

10 

15 

40 


• 60 54 6 

-.15221 

20 

14 

.2015E-03 

10 

6 

50 


.60507 

-.15238 

9 

7 

.1035E-03 

10 

14 

60 


.60 4 6 4 

-.15242 

23 

14 . 

.57B6E-04 

10 

14 

70 


.69452 

-.15242 

22 

14 

.494BE-04 

10 

14 

80 


• 60414 

-.15243 

22 

14 

.3396E-04 

10 

14 

00 


.6D400 

-.15243 

22 

14 

.2493E-D4 

13 

In 

100 


.60 39 0 

-.15242 

22 

14 

•ia32E-04 

ID 

14 

110 


.60382 

-.15242 

22 

14 

.1397E-04 

10 

14 

120 


.60377 

-.19242 

11 

14 

.1063E-04 

13 

14 

150 


.60375 

-.15241 

10 

14 

•8144E-0S 

10 

14 


250 


BIGRL 

ERCIRC 

ICPU 

CPERRU 

ICPL 

CPERRL 

>58B6E*02 

.12CZE-02 

ID 

.i2d7E*Gi 

10 

•1255E*31 

,3003E*02 

.lZZBE-32 

19 

•i43jt-JI 

J.6 

.190aE-Jl 

i3248E*01 

•2461C-D3 

id 

.6359C-02 

12 

.1703E-J1 

.4499E+U1 

.ld75E-33 

27 

.23iDb-.,2 

x2 

•7b65c-j2 

i3935E*01 

.5786E-34 

14 

.2D75E-02 

11 

.2943E-32 

i2B42£+'Jl 

.7117E-34 

i4 

.1i98£-G2 

■ 

.e46dE-U3 

2046E+01 

.4340E-D4 

14 

.7971E-D3 

lii 

.I173E-D3 

.1612E+01 

.27B0E-04 

19 

.4925E-03 

10 

.1189b-D3 

iiZ94E*01 

.2ia0b-34 

19 

•3763E-GJ 

1C 

.8284E-J4 

1007E+01 

.1537E-34 

19 

* 3G3de— U3 

13 

.43D6E-D4 

,7818E+0P 

.1UBBE-U4 

19 

.2256E-03 

12 

.4564E-J4 

6022E+03 

.649LE-J5 

19 

•17,5E-Dj 

12 

.4414C-04 

4616E400 

.6354b-05 

19 

.1337e->B 

12 

.39j6E-j4 


****** SOLUTION CONVERGED ****** 


FINAL OUTPUT FOR nbDIUH HESH 


FORCE COEFFICIENTSf PKLSSURb COEFFlCIcNTt AND NACH NUN3ER 
<0R SIHILARITT PARAMETERt ON BODY AND DIVIDING STREAM LINE. 


B ■ BLFGRc JR BEHIND aIkFjIL 



CL • 

603729 




u 


UPPE< AIRFJIL SUKFaCl 




CM • - 

152415 




L 


LOhc^ AiRFUIL SJ-^FACt 




CP* • - 

603170 




0 

■ 

CRX TICal ^KLSS\J^i 





LGrER 


UPPiiR 








f.O- 


r- 

3 + 






I 

X 

CP 

Ml 

CP 

. Ml 






1 

-1.0750CD 

.021647 

.739456 

.021647 

.739458 




* 


2 

-.825000 

.033335 

.733764 

,033335 

.733704 



■3 



3 

-.575003 

.051951 

.724443 

,051951 

.724443 



6 



4 

-.350009 

.092701 

.7J3748 

.092731 

,703748 




* 


5 

-.176000 

.177867 

,658397 

,177867 

.658397 



d 

* 


6 

-.0750C9 

.315444 

.677665 

.315444 

.57 7665 



B 

* 


7 

-.035009 

. 458494 

.479519 

.458474 

.479514 




* 


8 

-.015000 

.567892 

.388057 

.567892 

.388057 

d 





9 

-.002509 

.654246 

.296566 

.654248 

.296566 

B 







AIRFOIL 

LEADING EDGE 





AlRPjlL uLiliDlMG LJGl: 



10 

.007503 

.942391 0 

.000000 

,553319 

.401445 L 

J 



* 


11 

.017500 

.592448 

.364386 

.172386 

.661409 

L 


0 

4 


12 

.027500 

.381819 

.534372 

-.08 3733 

.780!’-73 


L 

u 

4 


13 

.037500 

.20537c 

.643069 

-. 308C37 

.886527 



L U 

* 


14 

.055000 

.03 800.7 

.731391 

-.589290 

.994687 



L 

U* 


15 

.075000 

-.09483t 

.794536 

-.836156 

1.0812^,^ 



U 

4 

u 

16 

.097509 

-.2C4465 

.643093 

-.907765 

1.154958 



L 

4 

u 

17 

.140625 

-. 294229 

,68086’ 

-.863369 

1.09529C 



L 

4 

u 

18 

,203125 

-.337801 

.898621 

-.612664 

1.073293 



L 

* 

u 

19 

.265625 

-.346766 

.899816 

-.773772 

1.06C136 



L 

4 

0 

20 

.328125 

3ZC5B4 

.891646 

-.750194 

I.C5197:, 



L 

4 

u 

21 

.390625 

-.27889C 

.674522 

-.740873 

1.548752 



L 

4 

u 

22 

.453125 

-.213683 

.847C49 

-.746913 

1.050637 



L 

4 

u 

23 

.515625 

-.125367 

.8J8352 

-.768921 

1.053417 



L 

4 

u 

24 

.578125 

-.01 33B9 

.756447 

-.797181 

1.U68046 



L 

4 

u 

25 

.640625 

.120502 

.689272 

-. 756741 

1.054223 



L 

4 

u 

26 

.703125 

.2634('2 

.639463 

-.590553 

.995414 



L 

\J4 


27 

.765625 

.385401 

.531935 

-.408C63 

.926543 


L 

J 

4 


28 

.828125 

.455897 

.481479 

-.251294 

.B63Cl'2 

L 


J 

4 


29 

.885000 

. 476546 

.465664 

-.091152 

.79 2853 

L 


U 

4 


30 

.915000 

.473480 

.468047 

.032375 

.734178 

L 


J 

4 


51 

.945000 

.4594 60 

.4 7878 7 

.132021 

.683184 

L 


U 

4 


32 

.475000 

.426120 

.503409 

.223371 

.632836 

L 


u 

4 


55 

l.OtiCOOO 

.34 569C. 

.558744 

.282392 

.598056 



L U 

4 



AIRFOIL TRAILING EDGE AIRFOIL TRAILING eDGe 


34 

1.025000 

.229962 

.629C47 

.229962 

.629347 

B 

35 

1.09000) 

.165655 

• 665C90 

.165655 

.66 50 90 

d 

36 

1.2Z50CO 

.110601 

.694462 

.11)651 

.694402 

a 

37 

1.40(000 

.075623 

.712494 

.075623 

.712494 

ti 

38 

1.625000 

.05 5(38 

.722896 

.055338 

.722896 

a 

39 

1.875000 

.040203 

• 73G3l!l 

.0432:3 

.73u3d1 

i) 


Y-GRID 

VALUES Y(JI 

J" i TO 

28 





-5.200000 

-3.600003 

'2.433033 

-1.6600.33 

-I.150;'3j 

-.BCOGCO 

-.550303 

-.3933C3 

-.300000 

-.240002 

-.180063 

-.125000 

-.075000 

-.030000 

.03C300 

.375DUJ 

•125C00 

i.tooooc 

.leaoM 

2.4CCC30 

.24 JCGJ 

3,603CC>' 

.30U;3( 

.39uj1J 

.55900? 

. BLmOOO 

1.150003 


Fi^ufe 4 - 4 .- Continued. 
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IHTERNEDIATE OUTPUT FOR FINE MESH 


WE 

• 1.9900 EPS 

■ 

2000 

MAXIT FOR 

THIS 

MESH • 

500 






ITERATION 

CL 

CM 

lERR 

JERR 

ERROR 

IRL 

JRL 

. BIGRL 

ERCIRC 

ICPU 

cperru 

ICPL 

CPcRRL 

10 

.69 707 

-.15260 

9 

29 

.2I96E-02 

17 

28 

.3073E+03 

.2779E-03 

Id 

.17406*71 

19 

• 1765E *31 

20 

.60B71 

-.15277 

16 

21 

.8121E-33 

17 

28 

.1S20E+03 

.24536-03 

3d 

.34i4E-Ui 

21 

.22706-31 

30 

.61016 

-.15295 

16 

31 

.42&4E-03 

17 

28 

.13D2E*C3 

.2539E-U2 

*t.‘ 

.26836-01 

20 

,1020t-31 

40 

.61131 

-.15288 

37 

28 

.34b9E-03 

17 

28 

.1029E4U3 

.ieilE-53 

kJ 

.21386-^1 

24 

.6,'68E-JZ 

50 

.61210 

-.15264 

16 

3] 

.2650E-03 

17 

28 

.B335E*02 

.1167£-U3 

Hi 

.i387E-01 

21 

.42926-32 

60 

.61290 

-.15290 

13 

29 

.2146E-03 

17 

Zb 

.7003E+02 

.12746-03 


.iiaiE-i-l 

23 

.24796-32 

70 

.61359 

-.15288 

13 

29 

.1854E-03 

17 

28 

.5968E*02 

.1127E-03 


.8o45E-^2 

24 

.i8i,4E-j2 

8C 

.61424 

-.15294 

18 

29 

.1566E-03 

17 

28 

.50986*02 

,1145E-u3 


. 7618E-U2 

24 

.14856-32 

90 

.61430 

-.15293 

18 

29 

.1345f-03 

17 

26 

.43636*02 

.e57St--4 


.69886 -12 

Lh 

,1205E-32 

100 

.61527 

-.15293 

13 

29 

.1160E-0J 

17 

28 

.37696*02 

.7737t-34 

til 

■ oCL'J b— u2 

24 

• lUoCiE-32 

110 

.61566 

-.15294 

19 

29 

.1U12E-D3 

17 

28 

.32466*02 

.6443E-C4 

Hi 

.51776-02 

24 

.8056E-03 

120 

.61 601 

-.15293 

18 

29 

.8738E-04 

17 

28 

.2B29£*02 

• 5434E-;.4 

Hi. 

.42 7ZC-V.2 

24 

,7529i-v3 

130 

• 61631 

-.15294 

18 

29 

.7521E-04 

17 

28 

.2448E+02 

.48966-34 

42 

. 3698E-:2 

24 

.58516-33 

140 

.61658 

-.15294 

18 

29 

.6548E-C4 

17 

28 

.21316*02 

.44676-04 

42 

. 3284E-U2 

24 

.54076-33 

190 

.61682 

-.15294 

18 

29 

.6639E-04 

17 

28 

.1850E*02 

.38816-04 

i 

.294o£-. 2 

24 

.47_9E- <3 

160 

.61703 

-.15295 

13 

29 

.4939E-S4 

17 

cB 

,1606E*02 

.3344E-D4 

tt2 

•2339E-J2 

^4 

,3959t-u3 

170 

.61721 

-.16295 

18 

29 

.4236E-D4 

17 

28 

.i398E+02 

,29C 32-04 

Hi 

,2l32t-02 

24 

.34316-03 

160 

.61736 

-.15295 

13 

29 

.37422-04 

17 

28 

.I218E*02 

.2523E-04 

n'i 

.485*6- '2 

c4 

• 29;,4L-v3 

190 

.61750 

-.15295 

18 

29 

.3261E-D4 

17 

26 

.1062E*C2 

.2218E-04 

4^ 

.15436-32 

24 

.25026-33 

200 

.61762 

-.15295 

18 

29 

.2B42E-D4 

17 

28 

.925SE*Ol 

.1955E-04 

4: 

38 7E-.I2 

24 

. 2*886-^3 

210 

,61773 

-.15295 

18 

29 

.24782-04 

17 

26 

,d072E*Cl 

.17146-04 

4^ 


24 

,18976-33 

220 

.61782 

-.16295 

18 

29 

.21318-04 

17 

28 

,7040E*01 

.1495E-04 

42 

*1338k-j2 

24 

.i04it-33 

230 

.61790 

-.15295 

18 

29 

.:835E-44 

i7 

28 

.6142£*U1 

.13126-04 

f2 

.92j.6-j3 

£4 

.14296-33 

240 

.61797 

-.15295 

18 

29 

.1645E-G4 

17 

28 

.5359E+01 

.1135E-J4 

Vi 

.79776-33 

24 

.1241E-.3 

290 

.61803 

-.15295 

13 

29 

.1435E-ft4 

17 

28 

,4677e*Ci 

.9916c-^5 

42 

,692t)E-03 

24 

• IColE— J j 

260 

.61608 

-.15295 

18 

29 

.1253E-34 

17 

28 

.40826*01 

.8t74E-15 

42 

.0J296-.'3 

24 

.9429c->/4 

270 

.61813 

-.15295 

IS 

29 

.10936-04 

17 

28 

.3S62E*C1 

.75786-33 

42 

. 52596-j3 

c4 

•o23iE- 34 

230 

.61617 

-.15295 

18 

29 

•95382-35 

17 

26 

.3109E*01 

.661IE-J5 

42 

. 45 6 2E-UJ 

ch 

. 7x806—94 


****** SOLUTION CONVERGED ****** 


****** *********** 
* 

' FINAL OUTPUT * 


PRINTOUT IN PHYSICAL VARIABLES. 

DEFINITION OF SIMILARITY PARAMETERS BY KRUPP 
BOUNDARY CONDITION FOR FREE AIR 
DIFFERENCE EQUATIONS ARE FULLY CONSERVATIVl. 
KUTTA CONDITION IS ENFORCED. 


MACH " 
DELTA • 
ALPHA • 
K • 

DOUBLET STRENGTH « 
AIRFOIL VOLJHE • 


.75COOOO 

.UStOCC 

,1200000 

2.4667108 

.07S56C2 

.0755602 


PARAMETERS USED TO TRANSFORM VARIABLES 
TO TRANSONIC SCALING 


CPFACT • 
COFACT « 
CMFACT • 
CLFACT - 
YFACT • 
VFACT . 


.2934267 

.0337443 

.2934287 

.29342B7 

2.3744886 

6.5690146 


Figvra 4~4.~ Con-tlnuad. 
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FINAL OUTPUT FOK FINE MESH 


FORCE COEFFICIENTS* PRESSURE COEFFICIENT* AND NACH NUHSER 
lOR SiniLARITT PARAHETERI ON BODY AND DIVIDING STREAH LINE. 

B • SLFORE OR BEHIND AIRFOIL 



CL ■ 

618170 




u 

• UPPER AIRFGIL SURFACE 



CN - - 

152947 




L 

■ LOUER AIRFOIL SURFACE 



CP* ■ - 

603170 





> CRITICAL PRESSURE 




lONER 

UPPER 






T.J- 


Y>0^ 




I 

X 

CP 

Hi 

CP 

HI 




1 

-1.075C0D 

.C34032 

.733359 

.034332 

.733359 


a 


2 

-.950000 

.03 8228 

.731281 

.038228 

.731281 


B 


3 

-.825000 

.043603 

.728611 

.043603 

.728611 


B 


4 

-.700000 

.051881 

.724478 

.051681 

.7244 78 


b 


$ 

-.575000 

.064692 

.718036 

.064692 

.718036 


B 


6 

-.450001. 

.08 4149 

.708141 

.084149 

.70 6141 


d 


7 

-.350000 

.112631 

.693421 

.112631 

.593431 


d 


8 

-.250000 

.1561C4 

.670278 

.156104 

.670278 


B 


9 

-.175000 

.217044 

.636452 

.217044 

.636452 


B 


10 

-.125000 

.297629 

.588744 

.297529 

.588744 


3 


11 

-.075000 

.410957 

.514216 

.410957 

.514216 


B 


12 

-.O525C0 

.536533 

.416334 

.536533 

.416334 


8 


13 

-.035000 

^662740 

.285993 

.662740 

.285993 

a 



lA 

-.022500 

.794714 

3.000000 

.794714 

0.000000 

B 



IS 

-.015000 

.918801 

O.UOLtUl 

.918801 

0.000003 

B 



16 

-.007500 

1.041777 

O.QOGOOO 

1.041777 

3.033000 

a 



17 

-.002500 

1.163438 

O.OCOOO 

1.163438 

0.0 JuC Ju 

a 





AIRFOIL 

LEADING EOGL 




AIKFGIL LtAOIr^G EDGE 


18 

.002500 

1.407124 

O.OOOCCO 

.929811 

0. 03 0000 L 

u 



19 

.0C75C3 

.a4t589 

l.OOLUOO 

.364417 

.546055 

L 

U 


20 

.012503 

.54 59 5L 

.438049 

.069857 

.715423 


L U 


21 

.017500 

.358899 

.549707 

-.133933 

.812186 


L U 


22 

.022503 

.229092 

.629549 

-.282545 

.876036 


L J 


23 

.027500 

.134081 

.682090 

-.393788 

.92-39 39 


L J 


2A 

.C32500 

.061736 

.719528 

-.483822 

.954598 


L U 


25 

.037509 

-.C91223 

.751591 

-. 567411 

.986946 


L 


26 

.045000 

-.065930 

.781231 

-.545591 

1.015661 


L 

♦u 

27 

.055000 

-.126525 

.838671 

-.741993 

1.049139 


L 

• U 

28 

.065000 

-.175651 

.B3C693 

-.849193 

1. 035564 


L 

^ U 

29 

.075000 

-.215274 

.847730 

-.938432 

1.114969 


L 

• u 

30 

.085000 

-.248365 

.861778 

-1.0C5396 

1.136551 


L 

¥ u 

31 

.097500 

-.281083 

.875431 

-1.023934 

1.142451 


L 

t u 

32 

.115000 

-.315831 

.889710 

-1.008197 

1.137445 


L 

• 0 

33 

.140625 

-. 34629T 

.902045 

-.979322 

1.123201 


L 

¥ U 

34 

.171875 

-.364996 

.909530 

-.949933 

1.118713 


L 

• u 

35 

.203125 

-.371650 

.912179 

-.923959 

1.110261 


L 

♦ u 

36 

.234375 

-.371149 

.911981 

-.9CT749 

1.U2653 


L 

♦ u 

37 

.265625 

-. 365818 

.909857 

-.879032 

1.095487 


1 

A U 

38 

.296875 

-.355271 

.905644 

-.858039 

1.088532 


L 

♦ u 

39 

.328125 

-.34C392 

.899666 

-.836023 

1.081155 


L 

• J 

40 

.359375 

-.320565 

.891637 

-.611060 

1.072749 


L 

A 0 

41 

.39C623 

-.295284 

.881294 

-. 781224 

1.062614 


L 

* u 

42 

.421875 

-.264496 

.868532 

-.743156 

1.049541 


L 

A u 

43 

.453125 

-.227512 

.852949 

-.701266 

1.034965 


L 

A U 

44 

.484375 

-.185257 

.834790 

-. 682262 

1.028284 


L 

A U 

45 

.515625 

-.138117 

.614052 

-.700984 

1. 034359 


L 

A U 

46 

.546875 

-.084282 

.789704 

-.740014 

1.043455 


L 

A 0 

47 

.578125 

-.023989 

.761512 

-.782223 

1.06295s 


L 

A u 

48 

.609375 

■C42142 

.729337 

-, 313561 

1.075232 


L 

A U 

49 

.640625 

.113148 

.69S13C 

-.836969 

1.081472 


L 

A u 

50 

.671875 

.187714 

.652951 

-.773393 

l.C599t7 


L 

A U 

SI 

.703125 

.263107 

.619639 

-.591993 

.995937 


L 


52 

.734375 

. 333402 

.566279 

-.467771 

.949627 


L U 


S3 

.765625 

.392678 

.526951 

-.417877 

.930377 


L U 


54 

.796875 

.436745 

.495695 

-.342758 

.900619 


L J 


55 

.828125 

.464615 

.474867 

-.257138 

.865454 


L U 


56 

.8593 75 

.478299 

•464299 

-.166233 

.826483 


L U 


57 

.885000 

.482335 

.461135 

-.086461 

.7907^4 


L J 


58 

.900001 

.481972 

.461421 

-.026327 

.762624 


L U 


59 

.915000 

.479614 

.463270 

.025433 

.737599 


L J 


60 

.930000 

.475295 

.466639 

.376993 

.711797 


L U 


61 

.945C00 

.468316 

.472032 

.128491 

.685055 


L U 


62 

.960000 

.457556 

.43C228 

.183440 

.656978 


L U 


63 

.975000 

.438907 

.494111 

.232955 

.627320 


L U 


64 

.990000 

.407040 

.516972 

.282117 

.598223 


L U 


65 

1.000000 

.353399 

.553324 

.314941 

.577981 


LU 




AIRFOIL 

TRAILING EDGE 




AIKFUIL trailing edge 

66 

1.01C009 

.285581 

.596123 

.265580 

.596120 


d 

A 

67 

1.025000 

.248178 

.618456 

.249178 

.618456 


0 

« 

68 

1.O5COO0 

.2C9303 

.641847 

.2(9333 

.640847 


B 

¥ 

69 

1.090009 

.170951 

.662196 

.173951 

.662196 


d 

¥ 

70 

1.150000 

.13 6726 

.680682 

.13o726 

.680682 


3 

¥ 

71 

1.225009 

.110219 

.694661 

.110219 

.694661 


8 

¥ 

72 

1.3OC000 

.09C361 

.704952 

•C90361 

.704952 


b 

¥ 

73 

1.4COCCO 

.074751 

.712938 

.074751 

.712938 


B 

¥ 

74 

1.500009 

.06 2705 

.719039 

.062705 

.719039 


B 

¥ 

75 

1. 625000 

.053453 

.723691 

.053453 

.723691 


d 

¥ 

76 

1.750000 

.046B3C 

.727002 

.046830 

.727002 


0 

A 

77 

1.875000 

.041477 

.729666 

.041477 

.729668 


5 

* 
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V-6RI0 

VALUES YUl 

J* 1 TO 

96 





■9.200000 

-A.AOOOOO 

'3.630000 

-3.900000 

-2. AOOOOO 

-1.95C0a0 

-1.600993 

-1.3533..3. 

■1.190000 

-.950000 

-.600000 

-.650000 

-.550000 

-.A500C0 

-.390000 

-.343303 

-.300000 

-.270000 

-.2A0003 

-.210000 

-.160300 

-.150000 

-.125000 

-.100000 

-.075000 

-.050000 

-.030000 

-.010009 

.OliiSOO 

.030009 

.050303 

.075UO'j 

.190C00 

.125000 

.150000 

.180000 

.210000 

.ZAOOOO 

.270003 

.303300 

. 3AOOOO 

.390000 

.A50000 

.950030 

.650000 

.acooao 

.956000 

1. 1 5 3 J V j 

1. 390000 

1.600000 

1.990000 

2.AOOOOO 

3.000000 

3.600000 

A.AOOOOO 

5.23)333 


FLD4 CHARACTER HAP 


P - PARABOLIC 
H • HYPERBOLIC 
S - SHOCK 
- - ELLIPTIC 


St 

59 

5A 

S3 

52 

51 

50 

A9 

AB 

A7 

A6 

A5 

A4 

A3 

AZ 

A1 

AO 

39 

35 
37 

36 
39 
3A 
33' 
32 
31 
3C 
29 
26 
27 
26 
25 
2A 
23 
22 
21 
20 
19 
18 
17 
16 
15 
lA 
13 
12 
11 
10 

9 

e 

7 

6 

5 

A 

3 

2 

1 


PHHHHS 

PHHHHHS 

PHHHHHHHHS 

PHHHHriHHHHHSPriHHHS- 

PHHHHHHHHHHHHHHHHriS- 

PHriHHH4rlHHriHrtKHH«riHS 

PHHHHHHHHHHHHHHriHHHHS 

PHHHHHHHHHHHHHHHHHHHHHS 

PHHHHHHHHHHHHHHHHHHHHHHS 

PriHHHHHHHHHHHHHHHHriHHHHHS 


Figure 4-4.- Continued, 



I1ACH HUNBEK HAP 


SYntOL RAN6E 

0 H.LE.O.BS 

1 0.09«LTiH.LE.0.15 
Z a.lS.LT.H.LE.O.ZB 

3 0.Z9.LT.H.LE.0.39 

4 0.39.LT.H.LE.0.49 

9 9.49.LT.H.LE.O>99 

6 B.99.LT.H.LE.0.69 

7 0.69.LT.H.LE.0.79 

B 0.79.LT.H.LE.0.B9 
9 0.B9.LT.M.LE.0.99 


SYHBOL RANGE 

A 0.99.LT.H.LE.1.09 
d 1.05.LT.N.LE.1.19 
C 1.19.LT.H.LE.1.2S 

0 l.ZS.LT.n.LE.1.39 
E 1,35.LT.H.LE.1.49 
F 1.49.LT.N.LE.1.95 
G 1.95.LTiH.LE*l.b9 
H 1.69.LT.H.LE.1.7S 

1 1.79.LT.H.LE.l.eS 
J l.e9.LT*H.LE.1.9S 


SYHBOL RANGE 

K 1.95.LT.H.LE.2.09 
L Z.09.LT.H.LE.2.15 
n 2.19.LT.H.LE.2.e5 
N Z,29.LT.H.LE.2.39 
0 2.-39.LT.H.LE.2.49 

P 2.49<LT.H.LE.2.95 
G 2,99«LT.N.LE.2.65 
R 2.69.LT.H.LE.2.79 
S 2.79.LT.N.LE.2.89 
T 2.a5.LT.H.LE.2.:99 


SYHBOL RANGE 

U 2.95.LT.H.LE.3.09 

V 3439.LTiH.LE.3.19 
H 3.19.LT.HtLE.3429 
X 3.&S.LT.H.LE.3.35 

Y 3.39.LT.H.LE.3>49 
Z 3>45.LT.n.Lt.3.99 
* rtiGr.3.9s 
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PRINTER PLOT OF CP ON BOOT AND DIVIDING STREAMLINE 


UJU 
U U 

u uu 

u u u u 

uu uu 

u u u u 

u u 

u u 

u 


U • CP(UPPER) 

L • CP(LOyER) 

B • CPIUPPERI > CP(LOVER) 

• critical CP 


B 

P 
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U U 

U U 

lll lll 

L lll U 


J L 
L 
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UL 

L 

L 

UL 
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UB8 
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SDNIC LINE COORDINATES 


SONIC LINE OUTPUT 

¥**■************** 


Y X-SQNIC 


.30030 

.23428 

.37L 26 

.27000 

.20723 

.39561 

.24000 

.18509 

.41554 

.21000 

.16381 

.43445 

.IBOOO 

.14349 

.45086 

.15000 

.12669 

.48161 

.12S0C 

.11184 

.66557 

.10000 

.09882 

.67579 

.07500 

.08642 

.68326 

.05000 

.07393 

.68982 

.03000 

.06287 

.69457 

.01000 

.04913 

.69902 


BOpy LOCATION 


.52727 

.A87B9 


.63786 

.65392 


Figure 4-4.- Continued. 


St 


SONIC LINE OUTPUT 




SONIC LINE PLOT 


Y VS X 

* • SONIC POINT 

♦ 

♦ 

♦ ♦ 

* 

♦ 

♦ ♦ 



SHOCK kave okag and total pressure profile output 


INVISCID HAKE PROFILES FOR INDIVIDUAL SHOCK WAVES WITHIN NOnENTUn CONTOUR 


SHOCK 1 

WAVS' DRAG FOR THIS SHOCK* .0001A9 


Y 

CD(YI 

PO/POtNF 

0.00000000 

.00141537 

.99907806 

.01000000 

.00138826 

.99909566 

.C300COOO 

.00133509 

.99913029 

.05000000 

.00123760 

.9991938C 

.O750COOO 

.00107690 

.99929848 

.10000000 

.00089976 

.99941387 

.1250000C 

.00033395 

.99978246 

•15000000 

.O003CC7C 

.99980412 

.leooooco 

.00003761 

.99997650 
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DRA6 COEFFICIENT OUTFUT 


CALCULATION OF DRAG COEFFICIENT BY NDHENTUH INTEGRAL HETHOD 


BOUNDARIES 

UFSTREAN 

DOUNSTREAN 

TOF 

BOTTOH 


OF CONTOUR USED 
X • '.ITSOOC 

X • 1.22900C 

Y - A.AOCCC'C 

T ■ •A*4OOC0O 


CONTRIBUTION TO CD 


COUP 

CDOOWN 

COTOP 

COBOT 


TOTAL CONTRIBUTIONS AROUND CONTOUR 


-•0DDS9B 
.000679 
.00002 A 
-.COOOOS 
-.000203 


THERE ARE 1 SHOCKS INSIDE CONTOUR. TOTAL COHAVE ■ .0091A9 


NOTE - ALL SHOCKS CONTAINED WITHIN CONTOUR 
CDWAVE EQUALS TOTAL HAVE DRAG 


DRAG CALCULATED FROM HONENTUH INTEGRAL CD • -.OODOSA 


TINE TO RUN CASE HAS 16. A6 SECONDS. 


(b) Output. 
Plgura 4-4.- Concluded 



SAJJL* CAfl* a - SOBGOnC-MCMOM AX1ir0II>-8OLID TUHUKL NALL SIMULATION 
BCTSfPE-2, B-2.0, ALPSA~2«0, BCIOI^l, SNLTA-0.06, EMACH<4.75, 


(a) Input. 


SAHPLE CASE 2 - SUBSONIC - NACAOSO& AIRFOIL - SOLID TUNNEL WALL SINULATION 


INPUT PARANETERS 
****** *t***w**** 


EHACH • W7S000 

POR 

• 0.00000 

ININ 


1 8CTYPE 

- 2 

ANESH • 

F 


DELTA • *C6CC0 CLSET 

• 0.00000 

IN AX I 


77 BCFOIL 

- 1 

PHYS • 

r 


ALPHA - 2«000C0 

EPS 

- .20000 

JNIH 


1 PSTART 

- 1 

PSAVE • 

F 


AK • CiCODCO RIGF 

- U.OOUOO 

JNAXI 


48 PRTFLD 

■ 1 

KUTTA - 

r 


SAN - l.AOOOO WCIRC 

• I. 00000 

NAXIT 


500 IPRTER 

• 10 

FCR ■ 

T 


F • Q. 00000 CVERSE 

• .00031 

HU 


100 SIHOEF 

• 3 




H • 2.0D0L0 DVERGE 

• 10.0 

NL 


75 ICUT 

- 2 




WE • l.BCjl.SOil.95 










XIN 










-1.075000 -.950007 


-.625000 

-.70030L 


-.575300 

.450000 

-.359300 


-•250300 

-.175000 -.125000 


-.075000 

-.052500 


-.935003 

.3Z25lC 

-.C15333 


— • i>j 75i*j 

-.00250C .002500 


.037500 

.012500 


.017500 

.322300 

.027590 


•032500 

.037500 .045000 


.055000 

.065000 


.U75D00 

.385990 

.T97533 


•llSOOv 

.140625 .171875 


.203125 

.234375 


.265625 

.296875 

.328125 


•359375 

.390625 .421675 


.453125 

.484375 


.515625 

.546675 

.578125 


•609375 

.640625 .671875 


.703125 

.734375 


.765625 

.790875 

.326125 


•659375 

.885000 .900003 


.915000 

.930000 


.945000 

.960000 

.975039 


•990000 

1.000000 1.010000 


1.025000 

i.isom 


1. C9C007 1 

.iSrO'l^ 

i.225j93 



1.400QQO 1.500000 


1.625000 

1.750000 


1.675000 





TIN 










-2.O000DO -1. 800000 

-1.630300 

-1.403390 


-1.200300 -1 

.300C0C 

-.8U3030 


-.65CJC0 

-.550000 -.450000 


-.390000 

-.340000 


-.300300 

.270000 

-.24C.3C 


-• Zk-jmd**- 

-.180000 ’ -.150000 


-.125000 

-.103309 


-.075000 

.050000 

-.039300 


-• Ji;.»oou 

.010000 .030000 


.050000 

.375300 


.1.30300 

.125000 

.15'-.'. 3j 


• iOOuOU 

.210000 .240000 


.270000 

.300300 


.340000 

.390;(.<9 

.45^ 



.650000 .800003 


1.009300 

1.200300 


i.40C300 1 

.OOCCCO 

L.89CJ30 


caCCGJOO 


AIRFOIL SIQNEIRT OUTPUT 

*********************** 


PRINTOUT IN PHYSICAL VARIABLES 

NORNALIZED BY 

CHORD LENGTH 


NAX THICKNESS - .C6J91529 

airfoil VOLUNE- 

.04108965 




NAX CANBER 

• J. 90099300 

INPUT GRID 

UPPER SURFACE 

LOWER 

SURFACE 



X 

Y 

OY/OX 

Y 

OY/DX 

THICKNESS 

CANBER 

.00250000 

.00435834 

.85237421 

-.00435834 

-.85237420 

.00435834. 

O.kVu.OOilO 

.00750000^ 

.00742429 

.47487803 

-.00742429 

-.47487803 

.98742429' 

O.GOOGOaOU 

.01256OC0 

.09946951 

.35793569 

-.00946951 

-.35793589 

.30946951 

Q.0C309U9C 

•0175CO00 

.01108950 

.29523886 

-.01108953 

-.29523886 

.01108950 


.0225COOC 

.01245756 

.25448155 

-.31245756 

-.25448155 

.01245756 

O.OCUOOOOO 

.02750000 

.01365308 

.22514572 

-.013653)3 

-.22514372 

.013653CB 

0.3C009000 

.03250000 

.01472030 

.20264561 

-.91472030 

-.20264561 

.01472039 

U.COOpOuOO 

.03751000 

.01568694 

.18462015 

-.01568694 

-.18462015 

.01568694 

0.09909000 

.0450COO0 

.01698765 

.16315364 

-.01698763 

-.16315384 

.31698765 

o.oooi/odoo 

.05500000 

.0185C460 

.14124882 

-.01850460 

-.14124862 

.01850460 

0.00990090 

.06500000 

.01982871 

.12421584 

-.01982671 

-.12421584 

.91982871 

0.00009000 

.0-7500000 

.02099952 

.11038471 

-.02099952 

-.11033471 

.02099952 

o.ooouGOao 

.08500000 

.02204384 

.09879605 

-.02204384 

-.09879605 

.02204384 

O.OOCiOOOOO 

.09750000 

.02320018 

.08657702 

-.02320018 

-.08657702 

.02329918 

0. 90o93o90 

.11500000 

.02458752 

.07246479 

-.02433752 

-.07246479 

.92458752 

0.90000900 

.14062500 

.02622499 

.03601496 

-.02622499 

-.05601496 

.02622499 

0.00009000 

.17187500 

.02772009 

.04030395 

-.02772009 

-.04030395 

.92772009 

O.OOOOJOOO 


Pigura 4-5.- Saapla taat caaa 2 - aUbaonlc, aolid wall 
wlnd-tunnal almulatlon (full output) : HACA 0006 

airfoil, A - 0.06, a - 2®, M - 0.7S, H - 2. 



.Z0312SD0 

.02877607 

.02769939 

-.02877637 

-.02769939 

.02877607 

0.00003000 

.234)7500 

.02947346 

.01723458 

-.02947346 

-.01723456 

.02947346 

O.OOOO'OOOO 

.26562500 

•02986957 

.00834494 

-.02986957 

-.00834494 

.02986957 

0.O0OU0300 

.29687500 

•0300C765 

.00067163 

-.93000765 

-.00067163 

.03000765 

o.ooouooou 

.32812500 

.02992166 

-.00602902 

-.02992166 

.90692902 

.92992166 

U.OOOOJOOO 

.35937500 

.02963913 

-.01193168 

-.02963913 

.01193168 

.02963913 

0.00000030 

.39062500 

.02918287 

-.01716743 

-.32918287 

.01716743 

.02918287 

0. 00000000 

.42187500 

.02857204 

-.02183858 

-.02857204 

.02183858 

.02857204 

O.OOOOJi/JO 

.45312500 

.02782297 

-.02602777 

-.02782297 

.02602777 

.02782297 

O.OOOilOuOO 

.48437500 

.02694961 

-.02980377 

-.02694961 

.92980377 

.02694961 

o.ouooacoc 

.51562500 

.02596392 

-.03322534 

-.02596392 

.03322534 

.02596392 

O.OOOOO'JOO 

.34687500 

.02487618 

-.03634383 

-.32487618 

.03634383 

.02487618 

O.OOOOOOOO 

.57812500 

.02369511 

-.01920504 

-.02369511 

.03929534 

.32369511 

O.OOCO jwOJ 

>.00957500 

.02242811 

-.04185046 

-.02242611 

.04185046 

..922428U 

0.00003000 

.04062500 

.02108131 

-.04431829 

-.02108131 

.04431829 

.32106131 

0.00009006 

.67^07500 

.01965969 

-.04664409 

-.01965969 

.04664409 

.31965969 

o.oooobJdo 

.70312500 

.01816718 

-.04886135 

-.01816718 

.04886135 

.31316718 

O.QOSOJOOj 

.73437500 

.01660666 

-.05100187 

-.01660666 

.05100187 

.01660666 

0.00009000 

.76562500 

.01498005 

-.05309608 

-.01496005 

.C53D9606 

.3J49800S 

0. UoLi. iC JO 

.796S750C 

.01328833 

-.05517327 

-.31328833 

.05517327 

.01328833 

0. OOOL'OOOO 

.82812500 

.01153160 

-.05726182 

-.01153163 

.05726182 

.01153163 

o.o'j.'jjL'i;':' 

.85937500 

.00970906 

-.05938931 

-.00973906 

.05938931 

.009709C6 

1 

.8850C00C 

.00816435 

-.06118182 

-.00816435 

.06118162 

.30816435 

0.30003000 

.90000000 

.00723859 

-.06225749 

-.00723859 

.C6225749 

.00 7230 59 

Q.'jOOLOUOO 

.9150COOO 

.00 629651 

-.C6335622 

-.00629651 

.06335622 

.00629651 

O.GOUObJOO 

.9300COOO 

.00533777 

-.06448088 

-.03533777 

.06446388 

.00533777 

O.U'1003000 

.94500000 

.00436194 

-.C6563430 

-.00436194 

.06563430 

.00436194 

O.U jOt.'OOw 

.96000000 

.003368 58 

-.06681931 

-.00336858 

.06681931 

.003368 58 

0. 00000030 

.97500000 

.00235719 

-.D6SC3S71 

-.03235719 

.36893871 

.00235719 

o.ooccococ 

.99000000 

. C0132724 

-.06929527 

-.00132724 

.06929527 

.00132724 

0.00003300 

1.00000000 

.OOC63COC 

-.07C15500 

-.30368093 

.3701553C 

.00063000 

0. JOOOOOOO 





INTERMEDIATE OUTPUT FOR OOARSE MESN 

1.8000 

EPS « 

.2C0C 

MAXIT FOR THIS NESH • 125 


ITERATION 

CL 

CM 

lERR 

JERR 

ERROR 

IRL 

JPL 

8IGRL 

ERCIRC 

ICPU 

OPERRU 

ICPL 

CPfcRRL 

10 

.15585 

.0C5S4 

la 

6 

.3094E-01 

6 

3 

.1787E+03 

.2912E-31 

17 

• 9i.9 Jt+v :■ 


• 96J7E+VJ 

20 

.23112 

-.UCL64 

16 

6 

.1695E-31 

6 

i 

•1617E+03 

.1632E-01 

6 

.9892E-31 

9 

« 93 30L— J1 

30 

.28076 

-.00255 

5 

1 

.15J3E-31 

6 

6 

.2157E+C3 

.1172E-.U 

15 

.5416E-01 

6 

•6963E-J1 

40 

.31805 

-.00266 


1 

.1155E-01 

6 

6 

.1703E+O3 

.B32uE-:2 

3 

.98J9E-J1 

17 

.19736-11 

SO 

.34353 

-.C0316 

b 

1 

.7618E-02 

6 

6 

.1203E+03 

.5963E-J2 

7 

.5577E-01 

a 

.1352E-01 

60 

.36199 

-.C0335 

5 

1 

.5974E-02 

6 

6 

.9540E+92 

.4317E-D2 

8 

..57?t-Ji 

6 

.8552E-J2 

70 

.37 539 

-.CG345 

a 

1 

.4401E-02 

6 

6 

.7X73E+02 

.3147E-32 

3 

.3873E-U1 

lO 

.424iE-j2 

80 

.38 526 

-.00348 

5 

1 

.3338E-92 

6 

6 

.5425E4C2 

.2329E-02 

6 

.315ZE-01 

ib 

.3706L-J2 

90 

.39258 

-.00354 


1 

.2445E-32 

6 

6 

.4931E+02 

.17J9E-32 

8 

.2i236-ri 


.21026-02 

100 

.39797 

-.CC36C 

5 

1 

.ia94£-32 

6 

6 

.2988E+02 

.1272E-02 

7 

.lalJc-L’i 

16 

•x873l-02 

110 

.40201 

-.00363 

5 

1 

.1362E-U2 

6 

6 

.2262E4(i2 

.9612E-C3 

7 

.1222L-01 


.15996-32 

120 

.40301 

-.00364 

5 

1 

.9913E-D3 

6 

6 

.1653E+S2 

.7084E-U3 

7 

.9oB7i-Ji 

J.6 

.y.246--3 


ITERiTIQh limit REACMcO 


Figure 4.5.- Continued 


•2 



FINAL aUTPJT FOR COARSE NESH 


FORCE COEFFICIENTS^ PRESSURE COEFFICIENT^ AND HACH NUNBER 
(OR SIHILARITf PARANETERI ON BODY AND DIVIDING STREAM LINE. 

CL > .A06213 

CM • -.0036A0 

CPA > -.603170 


B > BEFORE OR BEHIND AIRFOIL 
U > UPPER AIRFOIL SURFACE 
L • LOVER AIRFOIL SURFACE 
* - CRITICAL PRESSURE 


LOWER UPPER 

T.O- T-0+ 


I 

X 

CP 

Ml 

CP 

N1 

1 

-1.075000 

-.016071 

.75B68B 

-.018071 

.758688 

2 

-.979000 

.003939 

.748289 

.003535 

.748289 

S 

-.1750CO 

.053214 

.723811 

.093214 

.723811 

4 

-.039000 

.126463 

.686126 

.<126463 

.686128 

5 

-.002500 

.167177 

AIRFDIL 

.664260 
LEADING EDGE 

.167177 

.664260 

6 

.017900 

.622808 

.332800 

-.281678 

.875648 

7 

.037900 

.414301 

.911853 

-.990233 

.999297 

8 

.079C00 

.219522 

.635038 

-.782709 

1.063121 

9 

.140629 

.054571 

.723130 

-.721086 

1.041887 

10 

.265625 

-.033574 

.766063 

-.534411 

.974745 

11 

.390629 

-.049896 

.773752 

-.390402 

.919604 

12 

.515629 

-.039715 

.768965 

-.293284 

.880471 

13 

■640625 

-.019512 

.759376 

-.208677 

.844903 

14 

.765625 

.008226 

.746012 

-.127227 

.879186 

15 

.869000 

.045206 

.727812 

-.049285 

.771587 

16 

.949000 

.086691 

.706838 

.030511 

.735098 

17 

1.000000 

.147981 

AIRFOIL 

.674659 
TRAILING EDGE 

.129331 

.684611 

18 

1.090000 

.101106 

.699402 

.101108 

.699402 

19 

1.4C0009 

.0435C5 

.726659 

.043505 

.728659 

20 

1.B79000 

.012993 

.743691 

.012993 

.743691 



Y-GRID VALUES Y<JI J> 1 TO 12 

-2.000000 -1.20JC0O -.550DUJ -.300000 -.180039 -.075900 .075000 .,11)9333 

.300000 .550000 1.200003 2.0D0030 


INTERMEDIATE OUTPUT FDR MEDIUM MESH 


WE 

• 1.9000 

EPS 

• 

.2000 

MAXET FDR 

THIS 

MESH ■ 

250 






ITERATION 

CL 

CM 

lERR 

JERR 

ERROR 

IRL 

URL 

BIGRL 

ERCIRC 

i;pu 

CPERRU 

ICPL 

CPERRl 

10 

.40866 

.00109 

9 

10 

.2390E-02 

9 

13 

.119LE+U3 

.1412E-33 


.1184t+-l 

10 

.96Q3E40U 

20 

.40958 

.10085 

16 

13 

. 2956E-02 

LO 

12 

,7445E+C2 

.4803E-33 

11 

. 5513E-01 

11 

•icaifc-oi 

30 

.41075 

.00068 

16 

13 

.3343E-32 

13 

2 > 

.577SE+U2 

.4971E-33 

4d 

.733.'t- .2 

iO 

.1852E-02 

40 

.41180 

.00(91 

16 

13 

.3685E-D2 

iO 

12 

.5643EA02 

.5936t-13 

^0 

. d49uE-02 

15 

,1417t-02 

50 

.41275 

.00093 

16 

13 

.4000E-02 

10 

12 

.412aE402 

.7167E-13 

X d 

. 756ai:— j2 

Ic 

.1576E-1Z 

60 

.41357 

.0CL93 

16 

13 

. 4271E-02 

10 

12 

. 34BBE+02 

.8125E-3 3 

la 

. 5<tl2E-02 

12 

.993Cfc-03 

70 

.41433 

.00095 

16 

13 

.4503E-02 

ID 

12 

.300uE*a2 

.896;E-J3 

Id 

..472£-i)2 

^2 

.5217C-03 

SO 

. 41 900 

.CLC96 

17 

13 

.4711E-02 

13 

12 

.2635E+02 

.9789E-03 

xd 

.43J4E-. 2 


•3527E-J3 

90 

.41596 

.00097 

17 

13 

.4919E-J2 

10 

12 

.2318E+02 

.1051E-02 

id 

. 3345E-C2 

12 

.327ZE-03 

100 

■ 41610 

.OC098 

17 

13 

.5C91E-C2 

14 

13 

.2091E+02 

.1115b-.2 

lb 

, 28.at-02 

il 

.A526E-03 

110 

.4165 9 

.DC098 

17 

13 

.5233E-02 

14 

13 

.2128E*02 

.1169b-02 

la 

.2338E-02 

33 

.2Bli.E-l3 

120 

.41695 

.C0C99 

17 

13 

.5360E-02 

14 

13 

.2161E402 

.1216E-V2 

Id 

.2025E-02 

31 

.1228E-03 

130 

.41729 

.00099 

17 

13 

.5471E-02 

14 

1 3 

.2189EA02 

.1260b-(.'2 

Id 

.I9172-u2 

33 

.954»£-04 

140 

.41759 

•CCIOO 

17 

13 

.5S6BE-02 

14 

13 

.2214E+02 

.1Z9BE-02 

16 

.13v'JE-«2 

31 

.9442E-J4 

150 

.41785 

.00100 

17 

13 

.5650E-02 

14 

13 

.2235E+02 

.133CE-32 

IB 

.1272E-C2 

33 

.7375E-04 

160 

.41808 

.CCICO 

17 

13 

.5718E-02 

14 

13 

.2252E+02 

.1358E-02 

Id 

.iiize-i 2 

33 

.i56 4£-.)3 

170 

.41828 

.CCIOO 

17 

13 

.S780E-a2 

14 

13 

.2268E*02 

•1382E-G2 

id 

.9912E-;3 

31 

.57O4E-04 

180 

.41845 

•00101 

17 

13 

.5636E-GZ 

14 

13 

•2282EA02 

.14i.5L-.>2 

Id 

.9B25E-03 

10 

.3536E-04 

190 

.41860 

.00101 

17 

13 

.5885E-02 

14 

13 

.2295E+02 

.1424E-32 

Id 

.7393£-u3 

33 

.63<39E-j4 

200 

.41873 

.bClCl 

17 

13 

.5926e-02 

14 

13 

.ZaOSE-fOZ 

.1441E-02 

id 

.5804E-03 

33 

.4837E-J4 

210 

.41889 

.00101 

17 

13 

.5958E-0Z 

14 

13 

.2313E402 

.1454E-32 

id 

.5411E-..3 

29 

.lL43t-u3 

220 

.41895 

.LLlOl 

17 

13 

.5988E-02 

14 

13 

.23Z1E+02 

.1466E-C2 

16 

.51471-U3 

25 

.4029E-G4 

230 

.41904 

.00101 

17 

13 

.60i9E-OZ 

14 

13 

.2326E*02 

.1478E-0Z 

16 

.53c4E-u3 

33 

.4540E-04 

240 

.41911 

.00101 

17 

13 

.6044E-OZ 

14 

13 

.2335EH02 

.14B8E-02 

16 

.369&E-03 

33 

.5441E-J4 

250 

.41917 

.00101 

17 

13 

.6064E-02 

14 

13 

.2340E40Z 

.1496E-D2 

id 

.24088-03 

33 

. J65ob— 14 


****** ITERATION LIMIT REACHED 


Figxira 4.5.- contlnuad 
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FINAL OUTFUT FOR NEDIUH NESH 





FORCE COEFFICIENTS* FRESSURE 

COEFFICIENT* AND HACH NUH8ER 






lOR 

SIHILARITV FARANETERI ON 

300r AND DIVIDING STREAH LINE. 













B • BEFORE OR BEHIND AIRFOIL 



CL - . 

419173 





U ■ UPPER 

AIRFOIL SURFACE 




CN > 

001013 





L - LOVER 

AIRFOIL SURFACE 




CF* - 

603170 





* > CRITICAL PRESSURE 





LOWER 

UPPER 








y- 

0- 

y»o* 






I 

X 

CF 

N1 

CP 

HI 






1 

HI. 079000 

.002009 

.749030 

.002009 

.749030 



8 



2 

-.029000 

.007070 

.746973 

.007070 

.746973 



8 



a 

-.979000 

.016663 

.741899 

.016663 

.741899 



8 



4 

-.390000. 

.040483 

.730162 

.040483 

.730162 



8 



9 

-.179000 

.093139 

.703922 

.093139 

.703922 



8 



6 

-.079000 

.181941 

.696149 

.181941 

.696149 



8 



7 

-.039000 

.273822 

.603231 

.273822 

.603231 


8 




S 

-.019000 

.338124 

.963247 

.338124 

.563247 


B 




9 

-.002900 

.376340 

.538078 

.376340 

.938078 


8 






AIRFOIL LEADINO 

EDGE 



AIRFOIL LEADING EDGE 



10 

.007900 

.918258 

9.000000 

-.193460 

.820859 

L 


U 



11 

.017900. 

.667224 

.280249 

-.482750 

.995330 

L 



U ♦ 


12 

.027900 

.508325 

.440221 

-.797783 

1.068251 


L 



U 

13 

.037500 

.376881 

.937713 

-.980251 

1.128499 


L 



U 

14 

.099000 

.293899 

.619092 

-.963540 

1.12311b 


L 



u 

19 

.079000 

.198319 

.669080 

-.966368 

1.124029 



L 


U 

16 

•097900 

.080143 

.710190 

-.965500 

1.123748 



L 


u 

17 

.140629 

.01C78C 

.744769 

-.932189 

1.112946 



L 


u 

10 

.203129 

-.034680 

.766586 

-.756319 

1.094080 



L 


u 

19 

.269629 

-.059329 

.776294 

-.518140 

.968672 



L 

U * 


20 

.320129 

-. 061852 

.779335 

-.419366 

.929397 



L U 



21 

.390625 

-.060957 

.778732 

-.381778 

.916197 



L U 



22 

.493125 

-.054680 

.775990 

-.336338 

.898030 



L U 



23 

.919629 

-.045948 

.771899 

-.291638 

.879793 



L U 



24 

.976129 

-.039322 

.766890 

-.248923 

.861837 



L U 



29 

.640629 

-.023147 

.761111 

-.207236 

.844284 



L U 



26 

.703125 

-.009215 

.754443 

-.169908 

.826340 



L u 



27 

.765629 

.007169 

.746925 

-.123632 

.807573 



L U 



20 

.828129 

.027703 

.736482 

-.077478 

.786573 



L U 



29 

.089000 

.050578 

.725130 

-.030166 

.764448 



L U 



10 

.919000 

.074440 

.713096 

.008169 

.746039 



L U 



31 

.945000 

.100658 

.699635 

.051955 

.724441 



LU 



32 

.979000 

.141788 

.677979 

.109049 

.695272 



LU 



33 

1.000000 

.199429 

.646411 

.192314 

.650391 


8 






AIRFOIL TRAILING 

EDGE 



AIRFOIL TRAILING EDGE 



34 

1.029000 

.153756 

.671947 

.153756 

.671547 



8 



39 

1.090000 

.092927 

.703631 

.092927 

.703631 



8 



36 

1.229000 

.052008 

.724419 

.052008 

.724415 



8 



37 

1.4DOOOO 

.030676 

.735017 

.030676 

.739017 



a 



30 

1.629000 

.019647 

.740438 

.019647 

.740438 



8 



39 

1.079000 

.011119 

.744604 

.011119 

.744604 



8 




Y- 

GRID VALUES 

VIJ) J- 

1 TO 24 








-2.000000 -1.600000 -1.293000 -.800000 -.950000 -.390000 

-.300000 

-.243000 




-.180000 -.129000 -.079000 -.030000 .030000 .079000 

.129000 

.180000 




.240000 .300000 .390009 .559090 .800099 1.200009 

1.600000 

2.000000 







INTERHEOIATE OUTPUT FOR FINE NESN 






HE - 1.9900 EPS 

• .2000 

NAXIT FOR THIS NESH • 509 





ITERATION CL 

CH 

lERR JERR 

ERROR IRL JRL 

BIGRL 

ERCIRC 

ICPU CPERRU 

ICPL 

CP6RRL 

10 

-.42002 

.00324 

9 25 

.2361E-02 

17 24 

.4833E403 

.B166E-04 

33 .12016401 

18 

.1378E401 

20 

.42098 

.00327 

17 17 

.9564E-03 

17 24 

.Z836E403 

.1431E-03 

36 .58446-01 

23 

.1734E-01 

30 

.42107 

.00340 

72 36 

.4896E-03 

17 24 

.1970E403 

.1355E-03 

36 .32326-01 

19 

.7999E-02 

40 

.42159 

.00343 

16 28 

.3429E-03 

17 24 

.1457E+03 

.1307E-03 

36 .26756-01 

21 

.56626-02 

SO 

.42210 

.00340 

16 27 

.2993E-03 

17 24 

.1133E403 

.1346E-03 

36 .1063E-01 

23 

.26896-02 

60 

.42258 

.00342 

16 28 

.219 5E-03 

17 24 

.9633E402 

.1238E-03 

36 .13U9E-01 

22 

.14626-02 

70 

.42302 

.00343 

16 27 

.1890E-03 

17 24 

.8260E402 

.1140E-03 

36 .11736-01 

20 

.1U52E-02 

00 

.42343 

.00342 

21 1 

.1725E-03 

17 24 

.7436E+02 

.1075E-03 

36 .83556-02 

24 

.10606-02 

90 

;42383 

.00341 

18 1 

.1598E-03 

17 24 

.6547E402 

.1002E-03 

36 .63726-02 

21 

.63306-03 

100 

.42419 

.00342 

12 1 

.1416E-03 

17 24 

.99676402 

.9275E-04 

36 .66396-02 

28 

.25726-03 

110 

.42493 

.00342 

16 4 

.12946-03 

17 24 

.5527E402 

.87776-04 

36 .52016-02 

24 

.20636-03 

120 

.42485 

.00342 

14 4 

.1171E-03 

17 24 

.51096402 

.83756-04 

36 .49006-02 

57 

.27046-03 

130 

.42516 

.00343 

19 6 

.1083E-03 

17 24 

.4761E402 

.79D1E-D4 

36 .43286-02 

24 

.19836-03 

140 

.42549 

.00343 

18 1 

.1093E-03 

17 24 

.4397E402 

.7460E-04 

36 .41036-02 

62 

.25636-03 

190 

.42572 

.00344 

18 3 

.9330E-04 

17 24 

.4069E4Q2 

.7007E-04 

36 .42356-32 

52 

.1146E-03 

160 

.42998 

.00344 

16 2 

.8833E-04 

17 24 

.3785E402 

.6984E-04 

36 .33106-02 

24 

.96666-34 





Figur* 

4.5.- contlnvwd 


















JlT# 

•42622 

•00349 

14 

1 

.820DE-04 

17 

24 

.390DE402 

•6218E-04 

36 

.35T2E-02 

57 

.1562E-03 

ia« 

.42649 

.00349 

19 

1 

.7606E-04 

17 

24 

•3297E402 

.9819E-04 

3b 

.3298E-02 

24 

.1096£-t)3 

;190 

.42666 

.00349 

18 

1 

.7092E-04 

IT 

24 

.301TE402 

.9499E-04 

36 

.2904E-02 

62 

.1790E'-03 

'200 

.426B6 

.00349 

IB 

1 

.6971E-04 

17 

24 

.2802E*02 

.9117E-D4 

36 

.2B66E-02 

52 

.74966-04 


.42709 

•00349 

16 

1 

.6247E-04 

17 

24 

.2629E402 

.4B05E-04 

36 

.2S44E-D2 

43 

.459bE-J4 

220 

.42722 

•00346 

14 

1 

'.9839E-04 

17 

24 

.2449E402 

.4S25E-04 

36 

.2460E-02 

57 

.1C85E-03 

230 

.42739 

.00346 

19 

1 

.5414E-D4 

17 

24 

.2Z93E-i02 

.42Z9E-04 

36 

.2265E-02 

18 

.9778E-04 

|240 

.42794 

.00346 

18 

1 

.9041E-04 

17 

24 

.2134E402 

.3968E-04 

36 

.232 7E-02 

62 

.1241E-33. 

290 

.42769 

.00346 

18 

1 

.4707E-04 

17 

24 

.198BE402 

.3713E-04 

36 

.2047E-02 

18 

.5211E-34 

260 

.42782 

.00346 

16 

1 

.4479E-04 

17 

24 

•1871E402 

.3483E-04 

36 

.1BD7E-02 

18 

.33070-04 

i*TO 

.42799 

•00346 

14 

1 

.4169E-04 

17 

24 

•1746E402 

.3278E-D4 

36 

.1750E-02 

57 

.76690-04 

;iBO 

.42B07 

.00347 

21 

1 

.3889E-94 

IT 

24 

.1638E402 

.3062E-04 

36 

.1619E-C2 

16 

.4589E-04 

290 

.42B1S 

.00347 

16 

1 

.I3623E-04 

17 

24 

.1927E402 

.2871E-B4 

3b 

.144SE-Q2 

62 

.B897E-04 

jlOO 

.42B2B 

.00347 

18 

1 

.3386E-04 

17 

24 

.1429E402 

.2686E-04 

'36 

.1466E-02 

18 

•4C39E-04 

'310 

.42B3B 

.00347 

16 

1 

.3224E*04 

17 

24 

.1343E402 

.2519E-04 

3b 

.1297E-02 

18 

.2604E-04 

^320 

• 42B47 

.00347 

14 

1 

.3003E-04 

17 

24 

.1299E'fU2 

.237DE-94 

36 

.125BE-;2 

57 

.55970-04 

'330 

.42096 

.00347 

21 

1 

.2802E-04 

17 

24 

.1178E402 

•2213E-04 

36 

.1164E-02 

18 

.3435E-04 

340 

.42864 

.00347 

18 

1 

.2612E-04 

17 

24 

.1D99E402 

•2D75E-94 

3b 

.1341E-D2 

62 

.6419E-04 

1390 

.42872 

.00347 

18 

1 

.2441E-04 

17 

24 

.1026E4Q2 

.1941E-04 

36 

.1355E-U2 

IS 

■.2982E-94 

360 

•42879 

.00347 

16 

1 

.2329E-04 

17 

24 

.9671E401 

.1B20E-04 

36 

.933SE-03 

18 

.1934E-»4 

370 

.42889 

.00347 

14 

1 

.2166E-04 

17 

24 

.9042E*ai 

•1713E-04 

3a 

.QA58£-03 

57 

.39780-04 

3B0 

.42892 

.00347 

21 

1 

.2022E-04 

17 

24 

.8494E401 

.1S99E-04 

36 

.8393E-U3 

IB 

.2516E-94 

i390 

.42897 

•0C347 

IB 

1 

.18B4E-04 

17 

24 

.7924E401 

.1499E-D4 

36 

.7513E-D3 

62 

.4641E-34 

400 

.42903 

.00348 

18 

1 

.1762E-04 

17 

24 

.7400E401 

.1403E-34 

3b 

.7616E-93 

18 

.2174E-04 

410 

*42908 

.00348 

16 

1 

.167BE-04 

17 

24 

.6977E401 

.1315E-D4 

36 

.6742E-93 

18 

.1416E-94 

420 

.42913 

.00348 

14 

1 

.1563E-04 

17 

24 

.6929E401 

.1237E-04 

3b 

. 6541E-03 

57 

.2877E-04 

430 

.42917 

.00348 

21 

1 

•1460E-04 

17 

24 

.6130E401 

.1199E-D4 

36 

.6J62E-D3 

18 

.1825E-94 

440 

.42922 

.00348 

18 

1 

.1360E-04 

17 

24 

.5720E401 

.1083E-94 

36 

.S426E-33 

62 

.3359E-34 

490 

.42929 

.00348 

13 

1 

.1272E-D4 

17 

24 

.5342E401 

.1013E-04 

36 

.55U2E-Q3 

18 

.lS75t-94 

460 

.42 9 2 9 

.00348 

16 

1 

.1212E-D4 

17 

24 

.5D37E401 

.9499E'35 

36 

.497Jt-L'3 

18 

.1C21E-94 

470 

.42933 

.00348 

14 

1 

•1129E-04 

17 

24 

.4711E.01 

•B938E-09 

3b 

.4726E-03 

57 

.2G82E-04 

4B0 

.42936 

.00348 

21 

1 

.1O94E-04 

17 

24 

.4426E401 

.e347E-35 

3b 

.43BGE-03 

18 

•13210-94 

490 

.42939 

.00348 

18 

1 

.9824E-09 

17 

24 

•4130E401 

.7826E-D9 

3b 

•392DE-03 

b2 

.24390—94 


SOLUTION CONVERGED 


FINAL OUTPUT 


PRINTOUT IN PHTSICAL VARIABLES. 
definition of SlniLARITV PARAMETERS BY KRUPP 
BOUNDARY CONDITION FOR SOLID HALL 
DIFFERENCE EQUATIONS ARE FULLY CONSERVATIVE. 
KUTTA CONDITION IS ENFORCED. 


HACH > 
DELTA « 
ALPHA - 

K • 

DOUBLET STRENGTH > 
AIRFOIL VOLUME ■ 


.7900000 

.0600000 

2.0000000 

3.B061213 

.051611A 

.0A10B99 


PARAMETERS USED TD TRANSFORM VARIABLES 
TO TRANSONIC SCALING 


CPFACT • 
CDFACT • 
CM FACT ■ 
CLFACT > 
TFACT • 
VFACT • 


.19016B3 

.OIIAIOI 

.19C16B3 

.1901683 

2.949926A 

3.4377A67 
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FINAL OUTPUT FUR FINE HESH 


FORCE COEFFICIENTS* PRESSURE COEFFICIENT* AND HACK NUHBER 
lOR SIHILARITY PARAMETER) ON BOOT AND DIVIDING STREAM LINE* 

B ■ BEFORE DR BEHIND AIRFOIL 



CL - 

.A29390 




U • UPPER AIRFOIL SURFACE 



CM - 

.003A79 




L • LOWER AIRFOIL SURFACE 



CPA - -.603170 




A • CRITICAL PRESSURE 




LOWER 


UPPER 





Y-0- 


Y 

-OA 



I 

X 

CP 

Ml 

CP 

Ml 



I 

-1.079000 

.008699 

.7A5782 

.008699 

.7A5782 

8 


z 

-.990000 

.010789 

.7AA765 

.01)789 

.7AA765 

B 


3 

-.829000 

.013559 

.7A3A16 

.013995 

.7A3A16 

8 


A 

-.700000 

.018026 

.7A1232 

.018026 

.7A1232 

8 


5 

-.979009 

.0292A1 

.737693 

.0292A1 

.737693 

B 


6 

-.A90000 

.036605 

.732086 

.036609 

.732086 

3 


7 

-.390009 

.09375A 

.7235A0 

.55375A 

.7239A0 

B 


8 

-.290000 

.08 0668 

.709922 

.080668 

.709922 

B 


9 

-.179000 

.119291 

.689909 

.119291 

.639909 

8 


10 

-.129009 

.171516 

.661886 

.171516 

.661886 

B 


11 

-.079000 

•2A6613 

.619373 

.2A6613 

.619373 

8 


IZ 

-.092500 

.33155A 

.56TA61 

.33155A 

.567A61 

B 


13 

-.035000 

.A19085 

.508A52 

.A19085 

.508A52 

8 


lA 

-.022500 

.511797 

.A37351 

.511797 

.A37351 

B 


19 

-.019000 

.99 7950 

.358866 

.597990 

.358668 

8 


16 

-.007900 

.678353 

.26SA56 

.678353 

.265A56 

B 


17 

-.002909 

.7A8611 

.139669 

.7A8611 

.139665 

8 




AIRFOIL 

LEADING EDGE 



AIRFOIL leading EDGE 


IB 

.002509. 

1.322901 0 

.000000 

.076052 

.712276 L 

U 


19 

.007500 

.9A6A07 0 

.000000 

-.A563A7 

.9A5253 

L U 


ZO 

.012500 

.72 92 37 

.183192 

-.807212 

1.071AA7 

L 


Z1 

.017500 

.579391 

.377158 

-1.005689 

1.1366A5 

L 


2Z 

.022900 

.A702C7 

.A70577 

-1.02A078 

1.1A2A97 

L 


Z3 

•0Z7900 

.388169 

.530QA5 

-1.0A6277 

1.1A9522 

L 


ZA 

.032900 

.32 9C69 

.571991 

-1.07A236 

1.158309 

L 


29 

.037900 

.269801 

.6056AA 

-1.080525 

1.160277 

L 


26 

.OA9000 

.213693 

.636356 

-1.077035 

1.159185 

L 


27 

.059000. 

.162263 

.666937 

-1.071090 

1.15732A 

L 


ZB 

.069000 

.122016 

.686A75 

-1.067760 

1.156280 

L 


Z9 

.079000 

.091169 

.70A537 

-1.066786 

1.1S597A 

L 


30 

.085000 

.065166 

.717797 

-1.0659A5 

1.155711 

L 


31 

.097900 

.0395A3 

.730629 

-1.062680 

1.15A686 

L 


32 

.119000 

.012083 

•74A13A 

-1.05A815 

1.152213 

L 


33 

.1A06Z9 

-.015CA8 

.7572A1 

-1.DA2097 

1.1A8202 

L 


3A 

.171875 

-.0370A7 

.767705 

-1.025352 

1.1A2901 

L 


39 

.203125 

-.052108 

.77A7B8 

-1.0)1581 

1.135333 

L 


36 

.23A375 

-.061703 

.779266 

-.8A5911 

1.0BAA67 

L 


37 

.265625 

-.067A07 

.731916 

-.5157A5 

.96777A 

L U 


36 

.2968 75 

-.070239 

.783228 

-.3A667A 

.91219A 

L U 


39 

.328129 

-.070906 

.783537 

-.370809 

.9118A5 

L U 


AO 

.399375 

-.069920 

.783081 

-.37158 7 

.9121SA 

L U 


A1 

.39C625 

-.067660 

.782033 

-.360922 

.90790A 

L J 


AZ 

.AZ187S 

-.06AA11 

.780529 

-.3AA7B5 

.901A35 

L U 


A3 

.A931Z5 

-.C6C386 

.778693 

-.3261)1 

.893886 

L U 


AA 

.A8A379 

-.0557A7 

.776A89 

-.306299 

.885815 

L U 


A9 

.515625 

-.050613 

.77A087 

-.286087 

.877501 

L J 


A6 

.5A6875 

-.0A5L66 

.771A8A 

-.265806 

.669079 

L U 


A7 

.578125 

-.039155 

.768700 

-.2A5999 

.860605 

L U 


AB 

.609375 

-.032899 

.7657A3 

-.225A98 

.852092 

L U 


A9 

.6A0625 

-.026269 

.762606 

-.2C5A58 

.8A3520 

L U 


90 

.671875 

-.019282 

.759267 

-.185381 

•83A8A3 

L J 


91 

.703129 

-.011800 

.755685 

-.165116 

.825993 

L U 


9Z 

• 73A375 

-.003719 

.751796 

-.1AAA55 

.816871 

L U 


93 

.769625 

.0051A8 

.7A7507 

-.123119 

.8073A3 

L J 


9A 

.796875 

•01507A 

•7A2675 

-.100721 

.797218 

L U 


99 

.828129 

.026A72 

.737088 

-.076713 

.786220 

L U 


96 

.899379 

.039336 

.730731 

-.0S1A9A 

.77A500 

L U 


97 

.889000 

.051919 

.72AA59 

-.028A37 

.763627 

L U 


96 

.900000 

.062681 

.719051 

-.009777 

.75A713 

LJ 


99 

.919009. 

.0733A0 

.713655 

.007891 

.7A 6175 

L U 


60 

.930000 

.085997 

.73719A 

.027957 

.736357 

LU 


61 

.9A5QOO 

.101977 

.699159 

.051517 

.72A660 

LU 


62 

.960000 

.121871 

.688551 

.080671 

.709920 

LU 


63 

.975000 

.150702 

.67319A 

.019856 

.689612 

B 


6A 

.990000 

.192528 

.650271 

.173673 

.66)703 

B 


69 

1.000000 

.2A9123 

.617902 

.2A3370 

.621269 

8 




AIRFOIL 

TRAILING EDGE 



AIRFOIL trailing EDGE 


66 

1.010000 

.2158A1 

.637137 

.2158A1 

.637137 

8 


67 

1.029000 

.165663 

.665085 

.165663 

.665085 

B 


68 

1.090000 

.123379 

.687757 

.123379 

.607757 

H 


69 

1.090000 

.08966A 

.705311 

.08966A 

.705311 

B 


70 

1.190000 

.06A386 

.718191 

•06A386 

.718191 

B 


71 

1.225000 

.0A7177 

.726829 

.0A7177 

.726829 

8 


72 

1.300000 

.035A60 

.732653 

.035A60 

.732653 

3 


73 

l.AOOOOO 

.026855 

.736900 

.026859 

.736900 

a 


7A 

1.500000 

.020985 

.739979 

.020585 

.739979 

a 


79 

1.625000 

.019970 

.7A2237 

.015970 

.7A2237 

8 


76 

1.790009 

.012765 

.7A3B02 

.012765 

.7A3802 

8 


77 

1.879000 

.010 20 A 

.7A5050 

.01020A 

.7A5090 

B 
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V-6R10 

VALUES V(J> 

J- 1 TO 

48 





■2.000000 

-1.800030 

1.600000 

-1.400000 

-1.200003 

-1.000000 

-.800000 

-.650033 

-.550000 

-.450000 

-.393000 

-.340000 

-. 300000 

-.270000 

-.240000 

-.210003 

-.ascDoc 

-.150030 

-.129000 

-.103000 

-.075030 

-.050000 

-.030300 

-.010000 

.010000 

.030000 

.050000 

.075030 

.100091) 

.125000 

.150000 

.183003 

.210000 

.240000 

.270000 

.300000 

•340000 

.390000 

.450000 

.550333 

.650000 

.800030 

l.OOOOGO 

1.203030 

1.400003 

1.600000 

1.800000 

2.000003 


FLOW CHARACTER HAP 


P • PARABOLIC 
H • HYPERBOLIC 
S • SHOCK 
- • ELLIPTIC 


AS 

47 

46 

49 

44 

43 

42 

41 

40 

39 

3B 

37 

36 

39 

34 

33 

32 

31 

30 

29 

28 

27 

26 

29 

24 

23 

22 

21 

20 

19 

le 

17 

16 

19 

14 

13 

12 

11 

10 

9 

e 

7 

6 


1 


PS 

phhs— 

PHKHHHS 

PHHHHHHHHS 

PHHHHHHHHHHS 

PHHHHHHHHHHHS 

phhhhhhhhhhhhhhs 

PHHHHHHHHHHHHHHHHS 


HACH HUHBER NAP 


SYHBOL RANGE 

0 H.LE.0.09 

1 0.09.LT.H.LE.0.1S 

2 OilS.LT.H.LE.0.29 

3 0.29.LT.H.LE.0.39 

4 3.39.LT'.H.LE.0«49 

9 0.49. LT.n.LE. 0.99 

6 0.39.LT.n.LE.0.69 

7 0.69.LT.n.LE.e.79 

a 0.79. LT.n.LE. 0.89 
9 0.89. LT.n.LE. 0.99 


SYHBOL Range 

A 0.95. LT.n.LE, 1.09 
B 1.09. LT.N.LE. 1.19 
C 1.19. LT.n.LE. 1.25 

0 1.25. LT.n.LE. 1.39 
c 1.35. LT.N.LE. 1.49 
F 1.45 . LT.n.LE. 1.55 
G 1.99. LT.n.LE. 1.65 
H 1.65. LT.n.LE. 1.75 

1 1.75.LT.n,LE.l.aS 
J 1.S9. LT.N.LE. 1.95 


SYNBQL range 

K 1.95. LT.n.LE. 2.05 
L 2. 05. LT.n.LE. 2. 19 
N 2. 19. LT.n.LE. 2.25 
N 2. 25. LT.n.LE. 2. 35 
□ 2. 35. LT.n.LE. 2. 45 

P 2. 45. LT.N.LE. 2. 55 
0 2.55.LT.H.LE.2.I65 

R 2. 65. LT.n.LE. 2. 75 
$ 2. 75. LT.N.LE. 2. 85 

T 2. B5. LT.n.LE. 2. 95 


STnriOL RANGE 

U Z.95.LT.K.Lt.3.05 

V 3.C5.LT. n.LE.3.1S 
W 3. 15. LT.N.LE. 3. 25 
K 3. 25. LT.n.LE. 3. 35 

Y 3.35.LT.N.LE.3.4S 
Z 3. 45. LT.n.LE. 3. 55 
* n.GT.3.55 
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PRIHTER PLOT DF CP ON BODT AHO DIVIDING STREANLINE 
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Figur* 4.5.- Continued 


CPCLONERi 


M 



SCALED H • .678075 


SOLID WALL lIVNDARY CONDITiUN. 

H CTUHHEL HALF HEIGHT) • 2.000000 
CP* - >.603170 


LOWER UPPER 

T»-H T»*H 


1 

X 

tP 

THETA 

CP 

THETA 



2 

-.990000 

.035447 

O.OJOOOO 

-.048436 

0.000000 

L 

u 

3 

-r829000 

.037896 

9.000000 

-.054969 

0.000000 

L 

u 

6 

>‘.700009 

.040216 

O.OOOOCO 

-.062600 

O.OOQOOO 

L 

u 

9 

-.975000 

.042319 

9.090090 

-.071347 

o.onoooD 

L 

u 

6 

-.490000 

.044013 

0.000000 

-.080584 

0.000005 

L 

u 

7 

-.390000 

.045193 

0.000000 

-.089420 

0.000000 

L 

u 

8 

-.250000 

.045920 

0.000000 

-.097374 

0.000000 

L 

u 

9 

-.175000 

.046272 

o.ooccoo 

-,403624 

0.000000 

L 

u 

10 

-.125000 

.046393 

0.030000 

-.108106 

0.000000 

L 

u 

11 

-.079000 

.046424 

0.000009 

-.411338 

O.OOOOCO 

L 

u 

12 

-.092500 

.046424 

0.O30COO 

-.113315 

3.093003 

L 

u 

13 

-.035000 

.04 6423 

9.090000 

-.114488 

0.000000 

L 

u 

14 

-.022500 

.04 6467 

0.09C00C 

-.115272 

3.030000 

L 

u 

15 

-.019000 

.046502 

Q.OOOOOO 

-.415802 

0.000000 

L 

u 

16 

-.007500 

.046558 

0.090090 

-.116193 

0.000003 

L 

u 

17 

-.002500. 

.046618 

o.coot-oo 

-.116499 

3.093000 

L 

u 

18 

.002509 

.046618 

0.000000 

-.116793 

O.OOOOOO 

L 

u 

19 

.007509 

.04661-4 

O.nOLGCrC 

-.117986 

0.033009 

L 

u 

20 

.012509 

.046610 

0.000000 

-.117374 

O.OjCOUO 

L 

u 

21 

.017500 

.046605 

0.000000 

-.117657 

0.030000 

L 

u 

22 

.022509 

.046599 

o.oocooo 

-.117936 

0.000000 

L 

u 

23 

.027900 

.046592 

0.000000 

-.118211 

0.000000 

L 

u 

24 

.032509 

,046584 

0,090000 

-.118481 

0.030000 

L 

u 

29 

.037509 

.046511 

O.COOGOO 

-.118810 

O.OOC093 

L 

u 

26 

.045000 

.046392 

0.000000 

-.119248 

0.000000 

L 

u 

27 

.055000 

.046319 

o.oococc 

-.119739 

0.930000 

L 

u 

ZB 

.069000 

.046268 

0.000000 

-.12C22B 

0.090009 

L 

u 

29 

.079000 

.046213 

O.OOOOCO 

-.120697 

9.090000 

L 

u 

30 

.065000 

.046132 

o.ooccoo 

-.121181 

O.OOOOOO 

L 

u 

31 

.097509 

.046007 

9.C00C.D9 

-.121754 

0. 030003 

L 

u 

32 

.119000 

.045836 

0.000000 

-.122479 

O.OOCOOO 

L 

0 

33 

.140625 

.045612 

o.oocooo 

-.123327 

3.030900 

L 

u 

34 

.171875 

.045341 

o.ooccoo 

-.124126 

O.OOCOOO 

L 

u 

35 

.203125 

.04 5037 

o.oocooo 

-.124714 

3.000003 

L 

u 

36 

.234375 

.044707 

3.090000 

-.125044 

0.000000 

L 

u 

37 

.269629 

.044354 

0.030000 

-.125113 

0.03 JOUO 

L 

u 

3B 

.296675 

.043982 

0.000000 

-.124916 

0.000000 

L 

u 

39 

.328125 

.043593 

0.C0C0C3 

-.124455 

0.000000 

L 

u 

40 

.359375 

.043189 

0.000000 

-.123733 

3.90C90U 

L 

u 

41 

.390625 

.042770 

0.000000 

-.122760 

0.090000 

L 

u 

42 

.421879 

.042338 

O.C3CDCO 

-.121547 

0.000000 

L 

u 

43 

.453125 

.041895 

O.OOOOCO 

-.120104 

0.O3C0U3 

L 

u 

44 

.484375 

.041444 

0.000000 

-.118445 

0.030093 

L 

u 

45 

.515625 

.04C984 

3.0000DS 

-.116585 

0.039000 

L 

u 

46 

.546875 

.040517 

O.OOOOCO 

-.114542 

O.OOOUoO 

L 

u 

47 

.578125 

.040046 

0.000000 

-.112330 

0.030000 

L 

u 

4B 

.609376 

.039570 

3.000033 

-.109967 

0.000000 

L 

u 

49 

.640625 

.039L91 

3.09003 J 

-.107469 

0.3300U3 

L 

u 

90 

.671875 

.038610 

0.000000 

-.104855 

0.000000 

L 

u 

51 

.703125 

.038125 

•3.0OCCC0 

-.1S2141 

O.UOCOu J 

L 

0 

92 

.734375 

.037638 

0.000000 

-.099344 

0.03C003 

L 

u 

53 

.765625 

.03 7147 

O.OOCOOO 

-.096461 

9.030003 

L 

J 

54 

.796875 

.036652 

O.C90CSO 

-.093566 

O.OOCCOQ 

L 

J 

55 

.828129 

.036155 

0,000000 

-.090612 

O.OOOOOO 

L 

J 

96 

.859375 

.035683 

o.oocooo 

-.087767 

0.000000 

L 

u 

57 

.885000 

.035321 

o.oocooo 

-.085425 

0.330CU0 

L 

u 

58 

.900000 

.03 5062 

9.000000 

-.083725 

9.0300:3 

L 

u 

59 

.915000 

.034822 

o.oocooo 

-.082286 

O.OOOD03 

L 

u 

60 

.930000 

.034581 

o.ooccoo 

-.080849 

J.39O09U 

L 

u 

61 

.945000 

.034329 

0.000000 

-.079424 

9.000000 

1 

u 

62 

.960000 

.03 4078 

0.C9CC09 

-.078002 

0.000000 

L 

u 

63 

.975000 

.033840 

o.coocoo 

-.076570 

O.DOOC03 

L 

u 

64 

.990000 

.03 3649 

0.030000 

-.075253 

0.000000 

L 

u 

69 

1.000000 

.033496 

0 . cococo 

-.374181 

3.U33CCC 

L 

u 

66 

1.010000 

.033284 

0.000003 

-.073129 

0. 030993 

L 

u 

67 

1.025003 

.032962 

0.000000 

-.071619 

0.000000 

L 

u 

68 

1.050009 

.032482 

O.OOUCCiO 

-.069191 

0.030CC3 

L 

u 

69 

1.090000 

.031747 

9.000000 

-.065429 

0.030000 

L 

u 

70 

1.19C00D 

.03C694 

o.oooono 

-.060213 

0.030000 

L 

u 

71 

1.229000 

.029391 

0.800009 

-.954143 

3.000000 

L 

u 

72 

1*300000 

.027857 

o.oocooo 

-.047599 

0.000000 

L 

a 

73 

1.400000 

.026C28 

o.cooooo 

-.040577 

0.030009 

L 

u 

74 

1.900000 

.023890 

0.000000 

-.033290 

0.000000 

L 

u 

75 

1.625009 

.021453 

0.030099 

-.025941 

0.000000 

L 

J 

76 

1.750000 

.018888 

O.OOOC-90 

-.018997 

0.030CUO 

L 

J 


79 


Figur« 4.5,- Continued 



SONIC LINE OUTPUT 


SONIC LINE COORDINATES 


T X-SONIC 


•3000D 

.17004 

.17632 

.27000 

.13900 

.21245 

.24000 

.12090 

.22340 

.21000 

.10553 

.23204 

.10000 

.09171 

.23862 

.15000 

.07840 

.24356 

.12500 

.04694 

.24689 

.10000 

.05546 

.24968 

.07500 

.04410 

.25205 

.05000 

.03266 

.25408 

.03000 

.02244 

.25549 

.OlOOC 

.01172 

.25674 


■ODV LOCATION 



Plgur* 4.5.- ConfcintMd 


71 



SHOCK KAVE DRA6 AND TOTAL PRESSURE RROFILE OUTPUT 

*******************A**«*«*«***«******P^*******«P* 


IHVISCIO HAKE PROFILES FOR INDIVIDUAL SHOCK HAVES UlTHiH HQHENTUH CONTOUR 
;SHOCK I 


HAVE DRAG FOR 

THIS SHOCK* 

.001058 

T 

coin 

PO/POINF 

O.OOOQOOM 

.00790009 

.99485370 

.01^0^000 

.00769835 

.99498512 

■osooeooo 

.00730523 

.99524120 

.09000000 

.00677634 

.99558573 

.07500000 

.00597943 

.99610486 

.lOOOCOOO 

.00509296 

.99668233 

.12500000 

.00417618 

.99727954 

.19000000 

.00328669 

.99785897 

.laoooooo 

.00232634 

.99848457 

.21000000 

.00102329 

.99933340 

.24000000 

.00066724 

.99956534 

.27000000 

.00040805 

.99973419 

.3000C0C0 

.00000895 

.99999417 


DRAG COEFFICIENT OUTPUT 


CALCULATION OF DRAG COEFFICIENT BY NONENTUn INTEGRAL NETHOO 


BOUNDARIES OF CONTOUR USED 


UPSTREAM 

DOWNSTREAM 

TOP 

BOTTQN 


-.175000 

1.225000 

1.800000 

-1.B30LC0 


CONTRIBUTION TO CO 


COUP 

CODOHN 

CDTOP 

COSOT 


TOTAL CONTRIBUTIONS AROUND CONTOUR 


THERE ARE 1 SHOCKS INSIDE CONTOUR. TOTAL CDHAVE • 


-.000055 

.000219 

.003140 

.001029 

.1)03333 

.001058 


NOTE - ALL SHOCKS CONTAINED HITHIN CONTOUR 
CDHAVE eoUALS TOTAL HAVE DRAG 


DRAG CALCULATED FROM MOMENTUM INTEGRAL CO • .001391 


TIME TO RUN CASE WAS 2J.C4 SECONDS. 


(b) Output. 
PlguTtt 4.5.- Concludad 



SAMPLE CASI 3 - StMORtC-mCA0006 AUUTOZL-SLOTTBO TUHIBD WALL BINDLATIOV 
SIMP 

BCTypi"!, P>0.066, EPS«0.9, H>2.0t ALPBA>2.0, ■RLTA*K).06. IMACH-0.75. 
BCPOXLmI, 

SOD 


(«) Input. 


SAMPLE CASE 3 - SUSSOHtC - HACA0006 AIRFOIL • SLOTTED TUNNEL WALL SIHULATION 


INPUT PARAMETERS 
**************** 


EHACH 


.75000 

POR 

• 

o.ocooo 

ININ 


1 

bctype 


4 

AHESH 

■ 

F 

DELTA 


.06000 

CLSET 


0.00090 

INAXI 


77 

BCFOIL 


1 

PriYS 

« 

T 

ALPHA 


2.00000 

EPS 


.90000 

JNIN 


1 

pstart 


1 

PSAVE 

- 

F 

AK 


0.00000 

RIGF 


0.00090 

JNAXI 


48 

PRTFLO 


1 

KUTTA 

- 

T 

6An 


1. 40000 

WCIRC 


1.00090 

NAXIT 


500 

1 PR TER 


10 

FCR 

■ 

T 

F 


.C6600 

CVERGE 


.00091 

HU 


130 

SIMDEF 


3 




H 


2.DOOCC 

OVERGE 


10.0 

NL 


75 

ICUT 


2 





HE • l.SOtl. 40*1.99 


XIH 


■1.079000 

-.950000 

-.825000 

-.7C0030 

-.975000 

-.450COC 

-.3S1.J3; 

-.179000 

-.125000 

-.075000 

-.052500 

-.035000 

-.022500 

-.C150DO 

-.002900 

.002509 

.007500 

.012500 

.317590 

.022500 

.027539 

.037500 

•045900 

.055000 

.365090 

.375000 

.385031. 

.1197533 

.140625 

.171875 

.203125 

.234375 

.265625 

• 296875 

.328125 

.390629 

.421875 

.453125 

.484375 

.515625 

.546875 

.578125 

.640629 

.671875 

.703125 

.734375 

.765625 

.796875 

.828125 

.665000 

.903300 

.915900 

.930000 

.945000 

.960000 

.975000 

1.000000 

1.010000 

1.025900 

1.950300 

1.090300 

1.15901,9 

1.225*.-iJ 

1.400000 

1.500000 

1.625000 

1.759000 

1.875000 



TIN 







■2.000000 

-1.800009 

-1.603000 

-1.400000 

-1.2COOOO 

-1.300000 

— . 600.39 

-.950000 

-.450000 

-.390000 

-.340000 

-.300000 

-.270000 

-.240030 

-.180000 

-.150000 

-.125000 

-.190000 

-.075000 

-.050000 

-.030003 

.010000 

.030000 

,050000 

.375000 

.100000 

.125000 

.150003 

.210000 

.240000 

.270900 

.309900 

.340000 

.390000 

.450303 

.690000 

.600000 

1.000300 

1.290300 

1.40C000 

1.60COOU 

1.830333 


Plgiir* 4-6.- Saiipla t««t casa 3 - aiibaonic, alottad tunnal wall 
alMulatlon (abbraviatad output) ; HACA 0006 airfoil, 

8 - 0.06, O - 2«, M^ - 0.75, H - 2., P - 0.066. 


-.ncTaui, 
. 93Zi JO 
•ilSlLu 
. 359375 
• 9u93 75 
.859375 
. 990330 
1. 3O8J03 


— . 6 5U j.. J 
— .ZlJ.Ow 

-.oiaocc 

.1853:u 
.550 300 
Z. 000000 



INTERMEDIATE OUTPUT FDR COARSE HESN 


WE 

- 1.8000 

EPS 

■ 

.9000 

NAXIT FOR 

THIS 

HESH - 

125 






ITERATION 

CL 

CH 

lERR 

JERR 

ERROR 

IRL 

JRL 

3IGRL 

ERCIRC 

KRU 

CPERRU 

ICPL 

CP6RRL 

10 

•1S802 

.00490 

18 

6 

.36626-01 

6 

1 

.3173E+03 

.29746-01 

14 

.54316+37 

17 

.53566+00 

20 

.23257 

.CC309 

13 

6 

.1839E-31 

6 

6 

.2311E+03 

.15516-01 

6 

•11296+00 

8 

.99976-01 

30 

.27626 

.00252 

5 

3 

.1299E-01 

6 

6 

.2310E403 

.94576-02 

b 

.62276-01 

6 

.54556-01 

40 

.30252 

.00261 

4 

3 

.7720E-02 

6 

6 

.13556+03 

.57156-02 

7 

.B5386-'>1 

7 

.12266-01 

SO 

.31826 

.00275 

4 

3 

.44616-02 

6 

6 

.7757E+02 

.34416-02 

7 

.54916-01 

16 

.65286-02 

60 

.3278 3 

.00287 

4 

3 

.2748E-02 

6 

6 

.47826+02 

.20856-32 

7 

.31016-01 

16 

.29906-02 

70 

.33361 

.00295 

4 

3 

.1661E-02 

6 

6 

.2892E+02 

.12636-02 

d 

.2>5.>E-3l 

16 

.24146-02 

80 

.33712 

.00301 

4 

3 

.10166-02 

6 

6 

.17686+02 

.76926-03 

8 

.12386-01 

16 

.12896-02 

90 

.33927 

•00306 

4 

3 

.6170E-03 

b 

6 

.10726+02 

.4686E-33 

8 


16 

.64826-03 

100 

.34057 

.00308 

4 

3 

.37356-03 

6 

6 

.64906+01 

.28486-33 

8 

.S34le-C2 

16 


110 

.34136 

.00310 

4 

3 

.22926-03 

6 

6 

.39856+01 

.17416-03 

B 

.3077E-02 

16 

.28776-03 

120 

.34185 

.00311 

4 

3 

.13856-03 

6 

6 

.24096+01 

.10576-03 

B 

.19j26-02 

16 

.15136-03 



ITERATION 

LIMIT 

REACHED *••*** 














INTERMEDIATE OUTPUT 

FOR KEDIUN NESN 






HE 

■ 1.9000 

EPS 

. 

.9000 

NAXIT FOR 

THIS 

NESH • 

2SU 






ITERATION 

CL 

cn 

lERR 

JERR 

ERROR 

IRL 

. >>FL 

SIGRL 

ERCIRC 

ICPU 

CPERRU 

ICPL 

CP6RR1 

10 

.34350 

.00632 

U 

in 

.18186-12 

10 

IJ 

.1131E+C3 

.] 7696-03 

33 

.12536+01 

10 

•953d6+JC 

ZO 

.34382 

.00646 

20 

13 

.85366-03 

10 

12 

.45976+02 

.1370L-J3 

.3 

,3j}9i-;. 

xi 

• 77756-02 

30 

.34436 

•00653 

12 

6 

. 40636-03 

10 

12 

.25036+02 

.16986-03 

13 

.41336-11 

3u 

.2813E-J2 

40 

.34487 

.00661 

12 

13 

.33356-03 

10 

12 

.26866+02 

,1326E-J3 

13 

.23396-01 

Zu 

.16276-02 

50 

.34534 

.00672 

12 

13 

.28446-03 

10 

12 

,18596+02 

.liOlt-03 

.3 

.25926-.* 

-3 

.22286-J2 

60 

.34 576 

.LL683 

12 

13 

.24426-03 

10 

12 

.11746+02 

.91476-04 

13 

.37^36-01 


• 15376—02 

70 

•34604 

.(O7C0 

12 

13 

.16316-03 

10 

12 

.87256+01 

.85116-04 

13 

.52o46-01 

12 

.70226-03 

60 

■ 34 632 

.00703 

9 

6 

.77376-04 

10 

12 

.57466+01 

. 67566-14 

1 3 

. 4J586-J2 

4.2 

.34456-03 

90 

.34 654 

.00703 

29 

12 

.63186-04 

10 

12 

.4240E+C1 

,SC85E-C4 

17 

.11756-02 

10 

.15726-03 

100 

.34670 

.00703 

25 

12 

.47066-04 

10 

12 

.36436+01 

. 39176-14 

17 

. 6i6o 6— .3 

lU 

.1* 56t — -03 

110 

.34683 

.0C7C3 

a 

5 

.36556-04 

10 

12 

,31276+01 

.30626-04 

17 

.62726-J3 

aC 

.93171-04 

120 

• 34693 

.CC7C3 

8 

5 

,31346-04 

IS 

12 

.25796+01 

,24046-04 

17 

.13316-03 

10 

. 44836-04 

130 

. 34700 

.00703 

8 

b 

.24816-04 

10 

12 

.2C56E+C1 

.13836-14 

i7 

•51746-03 

12 

• 36166—04 

140 

.34 707 

.60703 

S 

6 

.19456-04 

10 

12 

.16146+01 

.14696-04 

17 

.4145E-03 

12 

. 311OC-04 

150 

.34711 

.00703 

3 

6 

.15376-04 

10 

12 

.12686+01 

.1178E-:4 

1 7 

.31736-03 

12 

.21906-04 

160 

.34 715 

.00703 

a 

6 

.12106-04 

10 

12 

,99846+00 

,926t t-55 

17 

» 25 36c-.'3 

i2 

.17596-14 

170 

.34716 

.C0703 

3 

6 

,94716-05 

10 

12 

,78306+00 

.72836-15 

17 

.Uo86-v3 

12 

.14656-04 


SOLUTION 

CONVERSED 

4*4*+* 















INTERNEOIATE 

OUTPUT 

FUR FINE MESH 






WE 

• 1.9500 

EPS 

• 

.9000 

HAXIT FOR 

THIS 

HESH • 

sOO 






ITERATION 

Cl 

CM 

I6RR 

JERR 

error 

IRL 

JRL 

BIGRL 

ERCIRC 

ICPU 

CPtKRU 

ICPL 

CPERRL 

10 

.34784 

.CC843 

22 

21 

.15026-02 

22 

21 

.3997F+03 

.12236-03 

32 


L9 

• 1 3 77E + 

20 

.34818 

.00663 

16 

18 

.66316-33 

17 

2A 

.Z342E+03 

.86946-04 

33 


24 

.1423E-01 

30 

.34846 

.00871 

16 

13 

.54116-03 

17 

24 

.18396+03 

.67816-14 

33 

.226SE-01 

20 

.73691-02 

40 

.34676 

.00876 

13 

10 

.3373E-03 

17 

2^ 

.1338E + C'3 

.86256-04 

33 

•1253E-UC 

<L2 

.46291-94 

50 

.34909 

.00881 

16 

s 

.2559E-03 

17 

2A 

.99436+02 

.85246-04 

34 

.73676-02 

21 

.2729L-02 

60 

.34939 

.00884 

22 

6 

.1932E-03 

17 

24 

.7891E+02 

,76S4E-;4 

34 

.523:jE-L2 

24 

.138bE-J2 

70 

.34966 

.00885 

15 

6 

•1620E-03 

17 

2*t 

.66976+02 

,66816-34 

34 

.i597E-v2 

24 

.82261-93 

SO 

.34991 

.00887 

15 

a 

.13366-03 

17 

24 

.58746+02 

.68756-04 

34 

.52496-02 

24 

.52881-03 

90 

.35016 

.00891 

16 

23 

.1150E-93 

17 

24 

.522(‘E+02 

.63316-34 

34 

.54436-.J2 

24 

.64676-03 

100 

.35038 

rOC892 

16 

25 

.9&82E-04 

17 

24 

.43516+02 

.5444E-34 

34 

. 5iB4i-02 

24 

,7£ 276-03 

110 

.35057 

.00894 

16 

25 

.8170E-04 

17 

24 

.36896+02 

.48266-34 

3+ 

.41496-02 

24 

,5si6E-03 

120 

.35075 

.00895 

16 

25 

.6700E-04 

17 

24 

,30186+02 


34 

• 3i41k:-j2 

24 

.49231-03 

130 

.35090 

.00 895 

14 

23 

.5502E-04 

17 

24 

.24896+02 

•3939E-34 

34 

.2o7 76-;-2 

24 

.374.C-J3 

140 

•35104 

.00896 

14 

23 

.462DE-04 

17 

24 

.20866+02 

.34706-04 

34 

.23816-02 

24 

.23901-03 

150 

.35116 

.CCB96 

14 

IS 

.3943E-04 

17 

24 

.17746+02 

.30636-24 

34 

.:739c--2 

24 

• Lo22tr~>J3 
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16U 

• J9A2r 

■■ .60697 

10 

6 

•3311t-04 

17 

24 

.r»49t*az 

.Z739E-04 

3<t 

.14B3E-U2 

2^ 

.lL49b-a3 

ITO 

.33137 

.00897 

14 

8 

.315BE-04 

17 

24 

•1368E402 

.2421E-J4 

34 

.1232E-02 

24 

.8Z9SE-04 

ISO 

.33143 

.00897 

13 

9 

.2891E-04 

17 

24 

•1218E402 

•2141E-94 

34 

.1389E-02 

24 

.346CE-U4 

140 

.33133 

.00897 

14 

19 

.2301E-94 

17 

24 

.1098E402 

.1B9BE-94 

34 

.98DSE-63 

24 

.4003k-04 

200 

.33139 

.00898 

14 

11 

.2Z28E-04 

17 

24 

.9B43E401 

.16B8E-94 

34 

.87936-113 

24 

.4Z95E-C4 

tl9 

.33165 

.00898 

14 

12 

.1984E-04 

17 

24 

.8786E401 

.1S03E-04 

34 

.7859E-03 

24 

.4234k-D< 

220 

.33171 

.00898 

14 

13 

.1757E-04 

17 

24 

.7784E401 

•1336E-04 

34 

•700ZE-03 

24 

.4176E-04 

230 

.33175 

.00898 

15 

12 

•1553E-04 

17 

24 

.6B95E4D1 

.11B6E-04 

34 

.6328E-U3 

24 

.3996L-W4 

240 

.351S0 

.00898 

14 

11 

.1386E-04 

17 

24 

.61Z2E401 

.1053E-D4 

34 

.56L8E-Q3 

24 

.3403E-34 

230 

.33183 

.00898 

14 

11 

.1230E-94 

17 

24 

.5436E401 

.934SE-95 

34 

.4991E-03 

24 

.Z911E-04 

260 

.33187 

.00898 

14’ 

11 

•1094E-04 

17 

24 

.4B43E4D1 

.8294E'-US 

34 

•4476E-j3 

24 

.25701-04 

270 

•35190 

.00899 

14 

12 

.9695E-05 

17 

24 

•4293E+01 

.7362E-05 

34 

.39D1E-03 

c4 

.2339E-J4 


SOLUTION CONVERSED 


FINAL OUTPUT 


PRINTOUT IN PHYSICAL VARIABLES. 

OEFTNITION OF SIMILARITY PARAMETERS BY KRUPP 
BOUNDARY CONDITION FOR SLOTTED NALL 
DIFFERENCE EQUATIONS ARE FULLY CONSERVATIVE. 
ROTTA CONDITION IS ENFORCED. 


MACH 

DELTA 

ALPHA 


DOUBLET STRENGTH 
AIRFOIL VOLUME 


.7500000 

.0600000 

2.000ODD0 

i.S(<6l?I3 

.0A6Z33S 

.CA10899 


PARAMETERS USED TO TRANSFORM VARIABLES 
TO TRANSONIC SCALING 


CPFACT • 
CDFACT • 
CNFACT - 
CLFACT • 
VFACT • 
VFACT - 


.1901633 

.DllAlOl 

.19016S3 

.1901683 

Z.9A9526A 

3.A377A67 
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FII4AL OUTPUT FOR FINE RESH 


FORCE COEFFICIENTS^ PRESSURE COEFFICIENT, AHQ HACH NUNBER 
lOR 51N1LARITY PARANETERt ON BODY AND 0IVI0IN6 STREAN LINE. 

CL • .351899 

CH ■ .I0089B5 

CP* ■ -.603170 


B • before or behind AIRFOIL 
U • UPPER AIRFOIL SURFACE 
L ■ LOWER AIRFOIL SURFACE 
* • CRITICAL PRESSURE 


LONER UPPER 

V-O- Y*S+ 


I 

X 

CP 

«1 

CP 

N1 



1 

-1*075003 

.016669 

.741896 

.016669 

.741896 


B 

z 

-.990000 

.019421 

.740549 

.019421 

.740549 


B 

3 

-.825009 

.022801 

.738892 

.022801 

.738892 


B 

4 

-.700009 

.027796 

.736456 

.027756 

.736456 


a 

9 

-.575000 

.035234 

.732764 

.035234 

.732764 


a 

6 

-.450000 

.046499 

.727168 

.046499 

.727168 


B 

7 

-.350000 

.063082 

.716850 

.063082 

.718850 


d 

8 

-.250000 

.088644 

.705733 

.088844 

.705733 


b 

9 

-.175000 

.125833 

.686461 

.125833 

.686461 


6 

10 

-.125000 

.176177 

.659327 

.176177 

.659327 


B 

11 

-.079008 

.249290 

.617827 

.249250 

.617827 


a 

IZ 

-.052500 

.332512 

.566849 

.332512 

.566849 


3 

13 

-.035000 

.418874 

.508602 

.41BB74 

.596602 


B 

14 

-.022500 

.510796 

.436160 

.513796 

.438180 


B 

15 

-.015000 

.596657 

.360172 

.596657 

.360172 


a 

16 

-.007500 

.677417 

.266732 

.677417 

.266732 


B 

17 

-.002509 

.748961 

.138754 

.746961 

.138754 


B 



AIRFOIL 

LEADING EDGE 




AIRFOIL LbADIHG EOGc 

IB 

.002500 

1.306960 

0.03Q0OO 

.101284 

.699310 L 


U 

19 

.007909 

.929753 

O.OOCOOO 

-.40 5071 

.925371 

L 

U 

20 

.012500 

.712684 

.213460 

-.789476 

1.065427 


L 

21 

.017900 

.563201 

.392416 

-1.027202 

1.143488 


L 

22 

.022509 

.454480 

.482546 

-1.025281 

1.142679 


L 

23 

.027509 

.372922 

.540376 

-1.034331 

1.145643 


L 

24 

.032500 

.310278 

.580900 

-1.051762 

1.151251 


L 

29 

.037509 

.25 5468 

.614166 

-1.051694 

1.151230 


L 

26 

.049000 

.199869 

.646164 

-1.043051 

1.148504 


L- 

27 

.055000 

.148925 

.674151 

-1.033673 

1.145539 


L 

26 

.065009 

.109C46 

.695273 

-1,027877 

1.143702 


L 

29 

.075000 

.078450 

.711054 

-1.023921 

1.142447 


L 

30 

.085009 

.052623 

.724107 

-1.018759 

1.140807 


L 

31 

.097509 

.027129 

.736765 

-1.009135 

1.137744 


1 

32 

.115000 

-.000250 

.750121 

-.989874 

1.13X567 


L 

33 

.140625 

-.027365 

.763118 

-.941996 

1.116137 


L 

34 

.171875 

-.049406 

.773522 

-.699662 

1.034403 


L 

39 

.203125 

-.064523 

.780577 

-.45 5088 

.944771 


L u 

36 

.234375 

-.074153 

.735039 

-.425290 

.933262 


L U 

37 

.265625 

-.079852 

.787667 

-.425726 

.933431 


L U 

36 

.296875 

-.082633 

.788946 

-.407657 

.926384 


L J 

39 

.328129 

-.0B32C(J 

.789207 

-.384459 

.917257 


L U 

40 

.359375 

-.03 2061 

.788684 

-.367129 

.997597 


L 0 

41 

.390625 

-.079594 

.78 7548 

-.335998 

.397692 


L J 

42 

.421875 

-.076063 

.785930 

-.312526 

.883361 


L 0 

43 

.453125 

-.071744 

.783925 

-.289854 

.879C-57 


L J 

44 

.484375 

-.066738 

.731606 

-.267992 

.369991 


L U 

45 

.515625 

-.061185 

.779C25 

-.246839 

.861149 


L 0 

46 

.546875 

-.055165 

.776217 

-.226462 

.852523 


L U 

47 

.578125 

-.048728 

.773204 

-.206611 

.644016 


L U 

46 

.609375 

-.041892 

.769991 

-.187218 

.635641 


L U 

.49 

.640629 

-.034645 

.766570 

-.163147 

.827323 


L -J 

■'5C 

.671875 

-.026941 

.762916 

-.149242 

,818994 


L U 

|91 

.703125 

-.C18697 

.758987 

-.130317 

.810579 


L J 

'92 

.734375 

-.009781 

.754715 

-.111142 

.831945 


L U 

93 

.765625 

-.eopcoc 

.750639 

-.091427 

.792979 


L U 

.54 

.796879 

.010931 

.744695 

-.073737 

,73 3482 


L U 

55 

.828125 

.023440 

.738579 

-.048 631 

.773182 


L J 

96 

.859375 

.037484 

.731650 

-.025441 

.762203 


L U 

57 

.885000 

.051136 

.724853 

-.OC4147 

.752003 


LU 

9B 

.900009 

.062750 

.719C17 

.013139 

.743619 


LU 

99 

.915009 

.074192 

.713222 

.029565 

.735565 


L'J 

60 

.930000 

.087708 

.706316 

.048293 

.726272 


LJ 

61 

.945009 

.104256 

.697767 

.070397 

.715149 


a 

62 

.960000 

.125654 

.636556 

.097899 

.701064 


LU 

63 

.975000 

.155784 

.670451 

.135092 

.681552 


a 

64 

.990000 

.199113 

.646588 

.186521 

.653613 


B 

65 

1.000009 

.25 7277 

.613097 

.253477 

.615341 


B 



AIRFOIL 

trailing edge 




AlftFQIL TRAILIN;; &0G£ 

66 

1.010009 

.225079 

.631856 

.225079 

.631856 


B 

67 

1.025000 

.175309 

.659805 

.175309 

.659405 


B 

68 

1.050000 

.133274 

.682519 

.133274 

.682519 


8 

69 

1.090000 

.099656 

.700154 

.099656 

.700154 


B 

70 

1.150000 

.0743C8 

.713163 

.074338 

.713163 


d 

71 

1.225000 

.0568 68 

.721978 

.056868 

.72.978 


a 

72 

1.300000 

.044790 

.728019 

.044790 

.728019 


B 

73 

1.400009 

.03 5714 

.732527 

.035714 

.732527 


d 

74 

1.900000 

.028897 

.735894 

.028897 

.735894 


8 

75 

1.625000 

.023731 

.736436 

.023731 

.73 8436 


B 

76 

1.750000 

.020086 

.740224 

.020036 

.740224 


B 

77 

1.875000 

.017179 

.741646 

.017179 

.741646 


d 


U 


u 


0 

u 

u 

u 

u 

b 

u 

u 

u 

u 

J 

J 
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— y=e«TD 
- 2.000000 
-.'Osoeoo 
-.laoooo 
.010000 
.210000 
.610000 


ItOES ■ ^ 
-l.BOOOOO 
-.490000 
-.190000 
.030000 
.240000 
.600000 


rj’3- - 1 r 
-1.600000. 
-.390000 
-.129000 
.090000 
.270000 
1.000000 


-1.4)30}0 

-.340000 

-.loiaao 

.079000 

.300000 

1.200000 


- 1.200000 

-.300000 

-.079000 

.100000. 

.340000 

1.400000 


- 1.000000 

-.270000 

-.090000 

.129000 

.390000 

1.600000 


-.800000 

-.240000 

-.0300.90 

.>190000 

.490000 

1.800000 


-.690300 

-.210003 

-.010003 

.183003 

.990000 

2.000000 


SONIC LINE OUTPUT 

444 * 44 * 44444 * 4**4 

SONIC LINE COONDINATES 


T 

X-SONIC 


.16000 

.11078 

.13374 

.1900C 

.06704 

.15473 

.12900 

.07326 

.16311 

.10000 

.99973 

.16909 

.07900 

.04629 ■ 

.17383 

.09000 

.03394 

.17785 

.030DC 

.02284 

.18058 

.01000 

.01204 

.18304 


60DV LOCATION 


SHOCK NAVE DRAG AND TOTAL PRESSURE PROFILE DUTPUI 


INVISCIO WAKE PROFILES FOR INDIVIDUAL SHOCK WAVES WITHIN HOMENTUN CONTOUR 
SHOCK 1 


WAVE drag for 

THIS SHOCK* 

.000342 

Y 

COI Yl 

PO/PQINF 

0.00000000 

.0038 799 3 

.99747253 

.01006000 

.00368048 

.99760245 

.03001000 

.0C33C232 

.99784079 

.09000000 

.00284000 

.99814996 

.0790C0D0 

.00220718 

.99856219 

.10000000 

.00162959 

.99893847 

.12500000 

.00102354 

.99933324 

.15OOCOO0 

.00058819 

.99961687 

.18001000 

.00001299 ’ 

.99999194 


ORAG COEFFICIENT OUTPUT 


CALCULATION OP DRAG COEFFICIENT BY NONENTUN INTEGRAL NErHOQ 


tOUNDARIES OF CONTOUR USED 


U6STREAN 

OOWNSTREAN 

TOP 

■OTTOH 


T • 
Y - 


-.175000 
1.22 9CC0 
1.800000 
-1.80CCOO 


CONTRIBUTION TO CD 


COUP 

CDDOWN 

COTOP 

coaoT 


TOTAL CONTRIBUTIONS AROUND CONTOUR 
THERE ARE 1 SHOCKS iNSlOE CONTOUR. TOTAL COWAVE 


-.001618 

.001902 

.033100 

.090030 

.W93315 

.C00342 


NOTE - ALL SHOCKS CONTAINED WITHIN CONTOUR 
CDWAVE EQUALS TOTAL WAVE DRAG 


DR^G CALCULATED FRON HONENTUn INTEGRAL CD • .000397 


TINE TO RUN CASE WAS 13.41 SECONDS. 


(b) Output. 

Figura 4.6.- Concludad 



SAMPLE CME 4 - SUPERS0HIC-»Ok0006 AIRFOIL-PREE MR SIMDIATXOH 

BCTVPE-1, AHESB".T*»;, BCPOIL-1, ALPHA-2.0, 
DELTA-0. 06, ^ 

$Hn> 


(a) Input. 


-SAHPIE CASE A - SUPERSONIC - NACA}J0i> AIRFOIL - FREE AIR SIHULATIO'4 


INPUT PARANETERS 

****#***«**«**•* 


EHACH • 1.10000 

POR 

• 0.03000 

ININ 


1 8CTYPE 

1 

AMESH • 

T 


delta • .06000 CLSET 

• 0.00030 

IMAXI 


61 BCFOIL 

1 

PHYS - 

r 


ALPHA « 2.0CC00 

EPS 

• .20030 

JNIN 


1 PSTART 

1 

PSAVE 

F 


AK • O.ICCCO RIGF 

> O.QCOOO 

JNAXl 


69 PRTFLO 

1 

AUTTA • 

T 


GAM • l.ACCOL NCIRC 

• I.OOCIO 

KAXIT 


501 IPRTER 

10 

FCR ■ 

T 


F > O.COOOO CVERGE 

• .00001 

NU 


lOl) SlnOEF 

3 




H • O.OCCOO OVERGE 

- 10.0 

NL 


75 ICUT 

2 




WE > l.Sb«1.9C.1.96 










-A. 826938 -1.A72163 


-1.170661 

-.972966 


-.839867 

.653909 

-.‘.79659 


-.295,92 

-.178882 -.11A702 


-.075551 

-.050196 


-.032930 

.320516 

“. O.lJol 


-.6'j3965 

.00302A .008803 


•U19290 

,319563 


.325061 

.030961 

.037j19 


.395913 

.05A966 .067013 


.082363 

.1C1517 


.129201 

.199372 

.1 756^6 


.232563 

.229179 .235353 


.281029 

.306213 


.330950 

.356299 

.379323 


.933381 

.926629 .950013 


.973280 

.996960 


.519582 

.592669 

.56579i 


. 563807 

.611881 .639971 


.658089 

.561229 


.709917 

.727663 

.7Jv.9B6 


. 779916 

.797988 .321792 


.895736 

.670339 


.399736 

.914931 

.995757 


.972377 

l.OOOOOO 1.028899 


1.059991 

1.392135 


1.127723 1 

.167351 

1.212996 


..266195 

1.391189 1.956833 

9.890373 


1.671519 

L. 676313 


2.092561 2 

.209055 

2.966779 


2.702997 

YIN 










-5.200000 -2.599100 

-1.722837 

-1.265229 


-1.021360 

.893611 

-.7i.57^i 


-.616791 

-.592902 -.980989 


-.929090 

-.385939 


-.397855 

.319989 

-. 28:, jo9 


-.259767 

-.236188 -.219639 


-.199799 

-.176391 


-.159191 

.193013 

-.1277‘ 2 


-...3.29 

-.099167 -.085732 


-.072733 

-.063393 


-.397792 

.335615 

-.923553 


-. ..6 . 

.011800 .023653 


.035615 

.097792 


.060093 

.372733 

.065732 


.699107 

.113129 .127702 


.193013 

.159191 


.176391 

.199799 

.219039 


. 23olS8 

.259787 .285669 


.319969 

.397655 


.385939 

.929090 

.986989 


.592962 

.618791 .7157U1 


.893611 

1.321369 


1.265229 1 

.722837 

’ .599i00 


3.200600 


Figure 4-7.- Sample teat caae 4 - auperaonic, free air aimulatron 
(aibreviatod output): NACA 0006 airfoil, S - 0.06, o - 2 

” l-l 
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INT£KNEOIAT£ OUTPUT FOR COARSE HESH 


ME ■ l<aOOO EPS ■ >2000 KAXlT FOR THIS HESH • 129 


itiratiom 

CL 

cn 

lERR 

JERR 

ERROR 

IRl 

JRL 

BIGRL 

ercir; 

ICPU 

CPERRJ 

ICPL 

CPERRL 

•10 

•20042 

-.03497 

21 

8 

.I249 3E+00 

5 

8 

•1462E+03 

.1586E + D0 

lb 

.96296+0: 

5 

.83236+JOI 

20 

.24402 

-.04272 

21 

a 

.9993E+9} 

19 

6 

.28426+03 

.3296E+D0 

17 

.1 jO&E+Oo 

IT 

. 27316 +0C 

ao 

.24971 

-.04315 

21 

8 

.6899EFOO 

19 

8 

•3269E+03 

.37866+00 

7 

.16666-01 

17 

.38696-311 

40 

.24 993 

-.04329 

21 

8 

.72826+00 

19 

8 

•3450E+03 

.3993E+C0 

7 

.94456-02 

a7 

.1759t-Jl 

90 

• 24609 

-.04337 

21 

8 

.7489E+0U 

19 

8 

.39466+03 

.41C2E+00 

. 7 

.51676-02 

17 

.96906-02 

«0 

.24620 

-.04340 

21 

8 

.7597E+00 

19 

a 

.35996+03 

.4163E+7U 

T 

.31906-^2 

n 

.56826- J2 

70 

.24651 

-.04343 

21 

8 

.7659E+00 

19 

a 

.3629E+03 

.4197E+D0 

7 

.i,3:46-:i2 

17 

.33236-02 

•0 

.24679 

-.C4344 

21 

8 

.76946+00 

19 

8 

.3646E+03 

.4217E+QD 

7 

.10776-02 

17 

• 20616—02 

90 

.24699 

-.04345 

21 

8 

.7714E+00 

19 

B 

.3656E+03 

.42296+30 

7 

.6b396-u3 

17 

.134+6-02 

100 

.24722 

-.04345 

21 

8 

.77266+00 

19 

8 . 

.36626+03 

.42366+00 

7 

.42 746-03 

17 

. 93+76-03 

110 

.24746 

-.04346 

21 

8 

.77336+90 

19 

8 

.3666E+03 

.42406+00 

7 

.29176-03 

17 

’.70256-03 

120 

.24769 

-.04347 

21 

8 

.7737E+00 

19 

8 

.3669E+03 

.4243E+00 

7 

.21426-^3 

i? 

• 5756L— 03 




LIHIT 

REACHED 









U6 

IT6RAT10H 

• 1.9000 EPS 

CL CH 

lERR 

>2000 

JERR 

IHT6RHE0I4TE OUTPUT 

HAXIT FOR THIS HESH - 
ERROR IRL JRL 

FJH HEOIUH HESH 
250 

SIGRL 

ERCIRC 

i: t>u 

:p£rru 

ICPL 

CPERRL 

10 


.20335 

-.04097 

7 

3 

.73316-02 

i:> 

4 

.992i;E+02 

.11176-02 

V 


9 

.10516+01 

20 


.20638 

-.04052 

3 

Z 

.55b56-C2 


lb 

•B5b86+02 

.13b96-.2 


.i7S9=^01 

ll 

.29536-01 

30 


.20844 

-.04076 

3 

31 

.28186-02 

9 

16 

.81946+02 

.51546-53 

i^ 


9 

.259ii6-J2 

40 


.29930 

-.04067 

S 

9 

.22186-92 

9 

lb 

.83466+02 

.21156-53 


• 73a 7C-03 

11 

.24256-02 

90 


.20959 

-.04066 

11 

17 

.19316-02 

9 

16 

.75156+02 

.55*9E-;4 



4.2 

.L298L-;2 

60 


.23964 

-.C4064 

11 

17 

.16686-02 

9 

16 

.64326+02 

.31216-;5 

\ > 

.&797£-;j2 

il 

.2239t--2 

70 


.20961 

-.04083 

11 

17 

.14246-02 

9 

lb 

.54726+02 

.11766-04 

IZ 

.37ijc-02 

11 

.2119L-J2 

8D 


.20957 

-.04082 

11 

17 

.12.74 6-02 

9 

16 

.46126+02 

.1733L-J 4 

ki. 

• 3JAidt-C2 

11 

.1972L-jZ 

90 


.20952 

-.04081 

11 

17 

.10136-02 

9 

lb 

.36716+02 

.19116-04 



11 

.17346-02 

100 


.20945 

-.04080 

11 

17 

.8491E-r3 

9 

lb 

.32426+-32 

.22l9E-l4 


•3J70E-02 

11 

•14bQE— 02 

110 


.20938 

-.04078 

n 

17 

.7196E-C3 

9 

lb 

.27106+02 

• 3ill8 1 — . 4 


. !99ic-.2 

xl 

.12596-/2 

120 


• 20 92 9 

-»04075 

11 

17 

. 59416-03 

9 

16 

. 22646+02 

.37586-04 



1 I 

. ll o 1 6 — j 2 

130 


.20914 

-.14070 

2C 

33 

.55556-03 

9 

16 

.18906+02 

.5Hl26-b4 

i i 

.2 Jb4}L-'J2 

ii 

.89256-03 

140 


. 20899 

-.04061 

20 

31 

,66226-03 

9 

lb 

.15806+02 

.in57E-03 

i, c 

• i.o53fc-v 2 


./EIIL-Ji 

190 


.23653 

-.04046 

2J 

31 

.44176-03 

9 

io 

.13256+02 

.11926-03 

U 

. LdltU-Ld 


• a3 + + c-,i3 

160 


.20 832 

-.04L43 

11 

33 

.31666-03 

9 

16 

•il22r+J2 

.58376-04 

IZ 

« rsoic-oi 

11 

.5417.- -03 

170 


.20820 

-.04043 

11 

17 

.25346-03 

9 

lb 

.Ob.'OE+Cl 

.3379c-^4 


ei.fc 

11 

.47666-J3 

180 


.20815 

-.C4C44 

11 

17 

.21466-03 

9 

16 

.81366+01 

.11266-04 

it 

• J391l-j3 

xl 

.42376-03 

190 


.20813 

-.04045 

11 

IT 

.17866-^*3 

9 

lb 

.07726+01 

.2.',96-vi5 



11 

.35466-03 

200 


.20813 

-.04045 

11 

17 

.14746-03 

9 

1 6 

.55976+0: 

.12711-^5 

-d 

.63Uo'i-. 3 

ii 

.282X6-1,3 

210 


.20813 

-.04045 

11 

17 

.12226-03 

9 

16 

.46396+01 

.17316-05 

11 

• 559^£-^'a 

11 

.22566-33 

220 


.20612 

-.t4C45 

11 

17 

. lClbc-03 

9 

16 

•38576+01 

.15916-15 

i.C 

• c-t.3 

11 

.ibS2t.— j3 

230 


.20 612 

-.04049 

11 

17 

.84476-04 

9 

16 

.32086+01 

.11916-05 


• 35 •♦ic-x. a 

xl * 

.15436-^3 

240 


.23812 

-.C4C45 

11 

17 

.70196-34 

9 

16 

.26656+01 

.91006-06 

iz 

.2975£-L'3 

11 

.123/6-03 

290 


.20811 

-.04049 

11 

17 

.58306-04 

9 

16 

.2213E+C1 

.75256-56 

Ic 

• 2‘»97E-03 

11 

.10716-03 


ITERATIOH uniT reached 


Figure 4.7.- Continued 


7t 



ihternediate output for fine hesh 


HE 

> 1.0900 EPS 

■ 

.2000 

NAXIT FOR 

THIS 

NESH • 

500 






ITERATION 

CL 

CM 

lERR 

JERR 

ERROR 

IRL 

JRL 

BIGRL 

ERCIRC 

■ ICPU 

CPERRU 

ICPL 

CPERRL 

1« 

.29800 

-.04X52 

a 

33 

.3659E-02 

17 

32 

.4072E403 

.4022E-D3 

17 

.ill7£»Jl 

17 

.1205EPJ1 

20 

.20642 

-.04162 

20 

2 

.234ZE-32 

17 

32 

.3603E403 

•5969E-34 

22 

.1483E-01 

20 

.6973E-J2 

30 

.20667 

-.04169 

16 

2 

.2189E-02 

17 

32 

.3412E-f03 

.1103E-33 

22 

•3726E-02 

£1 

.23986-02 

40 

.20900 

-.04175 

IS 

63 

.1996E-02 

17 

32 

.3311E+03 

.1D33E-03 

22 

.57616--3 

21 

.122CE-0Z 

90 

.20925 

-.04180 

7 

63 

.1974E-02 

17 

32 

• 3232E‘F03 

•9063E-04 

17 

.4150E-03 

21 

.a942E-Q3 

60 

.20964 

-.04192 

7 

63 

.2111E-0Z 

17 

32 

.3177E-03 

.152Ct-33 

6? 

.69896-03 

61 

. 7533E-93 

70 

.21010 

-.04203 

7 

63 

.1849E-02 

17 

32 

.3139E403 

.1642E-33 

22 

.71636-03 

55 

.7985E-)3 

DO 

.21090 

-.04210 

7 

63 

.1687E-02 

17 

32 

.aOGAE+OS 

.12956-33 

65 

.4U7E-03 

29 

.77301-03 

90 

.21061 

-.04211 

7 

2 

.1570E-02 

17 

32 


.9688E-J4 

22 

.51946-33 

23 

.11686-02 

100 

.aio 2 

-.04209 

7 

2 

.1534E-02 

17 

32 

.2898E403 

•6191E-34 

22 

.6l>3t-;3 

22 

.13b2£-J2 

110 

.21114 

-.04206 

7 

2 

.1490E-02 

17 

32 

.2807E403 

.3105E-94 

22 

.49336-03 

21 

.12376-02 

120 

.21116 

-.04204 

16 

35 

.14D3E-02 

17 

32 

.2729E+C3 

•8525E-35 

22 

.49LSE-i3 

21 

.94466-03 

130 

.21118 

-.042C1 

13 

34 

.1370E-02 

17 

32 

.2670E+03 

.39B6E-05 

22 

.5J49E-03 

21 

.6t32E-j3 

140 

.21116 

-.04199 

10 

33 

.1341E-02 

17 

32 

.2617E'»03 

.1:2ZE-34 

22 

.54B6E-03 

65 

.51266-03 

190 

.21112 

-.04197 

6 

59 

.1318E-02 

17 

32 

•2562E+03 

•1371fc-J4 

22 

.69723-93 

65 

.all ,t-03 

160 

.21108 

-.04196 

6 

5 

.1290E-0Z 

17 

32 

.2500E+03 

.1213E-C4 

22 

.83j4£--'3 

22 

.a*i93E-u3 

170 

.21106 

-.04195 

17 

33 

.1Z42E-32 

17 

32 

.2428E+03 

.76636-35 

Zi. 

.9b 69E— j3 

22 

.□2036-03 

180 

.21105 

-.04194 

17 

33 

.1204E-02 

17 

32 

•2353E+03 

.7947E-36 

22 

. ...1426-, .2 

22 

.55671 -v3 

190 

.21105 

-.04194 

7 

3 

.1174E-J2 

17 

32 

•2274E+03 

•2841E-35 

22 

.1J72E-02 

22 

. 7056E-33 

200 

.21105 

-.04194 

17 

33 

.1121E-02 

17 

32 

.2191E* J3 

.42666-35 

22 

.illiE-02 

22 

.7497E-J3 

210 

.21107 

-.04194 

17 

33 

.1076E-02 

17 

32 

.21C3E-F03 

.13896-34 

22 

.i1jJE-l2 

22 

.83436-03 

220 

.21112 

-.04195 

17 

33 

.1029E-02 

17 

32 

.ZOllE+03 

.19486-34 

22 

.11336-02 

22 

.38176-03 

230 

.21119 

-.04195 

17 

33 

.9823E-03 

17 

32 

.1919E+U3 

.2638E-J4 

ci 

.i,994E-;2 

22 

.91 17t-03 

240 

.2112 8 

-.C4196 

17 

33 

.9361E-03 

17 

32 

.1829E+93 

.3127E-34 

c2 

.L.I926-.-2 

22 

.9127E-03 

250 

.21139 

-.04198 

13 

33 

.8913E-'J3 

17 

32 

.1741E+03 

.4182E-34 

zZ 

.33916-03 

22 

.9131E-03 

260 

.21192 

-.04199 

13 

33 

.B46eE-93 

17 

32 

.1657E+13 

.48B7E-34 

11 

.74536-C3 

22 

.3937E-33 

270 

.21167 

-.04200 

13 

33 

.BC37E-l)3 

17 

32 

.1578E+03 

.5334E-J4 

22 

.611 66—05 

22 

.36426-03 

280 

.21182 

-.C4202 

18 

34 

.7735E-03 

17 

32 

.ISaAE + 'JB 

•5200E-04 

22 

.51 6*16-03 

22 

.83536-03 

290 

.21197 

-.04203 

18 

34 

.7345E-03 

17 

32 

.1434E-03 

.E151t-'.4 

cl 

.43 792-'. 3 

21 

.78566-03 

300 

.21212 

-.04205 

18 

34 

.7036E-03 

17 

32 

.1368E+03 

.61B7E-.4 

I'c 

.41H5E-03 

21 

.7262E-63 

319 

.21227 

-.04206 

8 

63 

.6727E-93 

17 

32 

.1309E+03 

.5478E-J4 

22 

.3531E-03 

21 

.65946-03 

320 

.21243 

-.04210 

3 

63 

.6701E-93 

17 

32 

.1253E+T3 

.5755£-':4 

22 

.29,.36-'.3 

21 

. 6c . ..£—0 3 

330 

• a260 

-.04212 

8 

63 

.6693E-03 

17 

32 

.120nE403 

.5968E-C4 

Zi 

.219..6-. J 

21 

.39566-03 

340 

.21278 

-.C4215 

3 

63 

.6733E-33 

17 

32 

.1151E+03 

.61766-04 

eb 

.13636-33 

21 

.573OE-03 

350 

.21296 

-.04218 

6 

63 

.6725E-93 

17 

32 

,ilD5E+C3 

.6371E-34 


.i773E-u3 

21 

.54436-03 

360 

.21314 

-.C4ZZ1 

3 

63 

.6779E-03 

17 

32 

.1064E+03 

.65916-04 

17 

. 13136-03 

21 

.5’ I.7E-35 

370 

.21333 

-.04224 

0 

63 

.6858E-33 

17 

32 

.lCl26E+f:3 

.68126-04 

17 

.1309L-&3 

21 

.4cUi£-93 

380 

.21353 

-.04227 

a 

63 

•6955E-03 

17 

32 

.991PE+02 

.7194t-r4 

17 

.17o7:-.>3 

21 

.43376-03 

390 

.21374 

-.04231 

19 

62 

.5174E-03 

17 

32 

•9550E+02 

.7299E-J4 

17 

. 1 a 53E- j3 

21 

•4co96-33 

400 

.21386 

-.04232 

1 6 

61 

.4732E-03 

17 

32 

.9176E+02 

.2042E-O4 

17 

.17276-03 

21 

.41466-03 

410 

. 21 38 7 

-.04230 

6 

2 

.4572E-03 

17 

32 

.8812E+02 

.6921E-35 

6>t 

. 233 .-E-.i 

21 

.3 7266 -.3 

420 

.21380 

-.04226 

a 

2 

.4533E-C3 

17 

32 

.8445E+02 

.36136-34 


.26362-03 

21 

.3314E-13 

430 

.21365 

-.04222 

3 

2 

•4496E-03 

17 

32 

,8n66E+02 

.5B89E-04 

22 

.3240E-U3 

21 

.2<<‘»26-03 

440 

*21345 

-.04217 

a 

2 

.4464E-C3 

17 

32 

.7689E+1'2 

.7515E-34 

2? 

.4911E-''3 

21 

.2*1096-03 

450 

.21322 

-.04212 

8 

2 

.4436E-03 

17 

32 

.7312E+02 

.8509E-04 

cZ 

. 62 44t-riJ 

22 

.lo206-03 

460 

.aZ96 

-.04207 

a 

2 

.4413E-B3 

17 

32 

.6952E+r:2 

.9033E-34 

cc 

.o9j3c-03 

65 

.153d£-03 

470 

.21270 

-.04203 

a 

2 

.4335E-03 

17 

32 

.6624E4C2 

.9303E-D4 

cZ 

.59x3E— ‘3 

o5 

.1672t.-i3 

480 

.21 243 

-.04196 

a 

2 

.4365E-03 

17 

32 

.6327E-02 

•9444E-34 

22 

. 6o63t— i'3 

i7 

.1369t-v3 

490 

*21216 

-.04193 

6 

2 

.4329E-33 

17 

32 

.6D58E+G2 

.95B2E-34 

IZ 

.4359E — 3 

17 

.i516E-03 

500 

.21188 

-.04188 

3 

2 

.4199E-03 

17 

32 

.5707E+O2 

.97126-94 

ci 

. 6i 59E-./3 

.7 

,i63lE-73 


ITERATION limit REACHED ♦*♦♦♦♦ 


final output 


printout in physical variables. 

DEFINITION OF SIMILARITY PARAMETERS BY KRUPP 
BOUNDARY CONDITION FOR FREE AIR 
DIFFERENCE EQUATIONS ARE FULLY CONSERVATIVE. 
KUTTA CONDITION IS ENFORCED. 


MACH • i.irooooo 

DELTA • .16DCOUD 

ALPHA • 2.0000000 

K • -1.2A56397 

PARAMETERS USED TO TRANSFORM VARIABLES 
TO TRANSONIC SCALING 


CPFACT 


.1426887 

CDFACT 


.C085613 

CMFACT 


.1426887 

CLFACT 


.1426867 

YFACT 


2.4354913 

VFACT 


3.4377467 


Figura 4.7.- Continued 



FINAL OUTPUT FOR FINE NESH 


FORCE COEFFICIENTS* PRESSURE COEFFICIENT* AND HACH NUNBER 
(OR SINILARITT PARANETERI ON BOOT AND DIVIDING STREAM LINE. 



CL • 





8 

■ BEFORE OR 

BEHIND AIRFOIL 


.211883 




U 

- UPPER airfoil surface 


CM • -.041882 




L 

> LOWER airfoil SURFACE 


CP* - 

.148116 




A 

- CRITICAL 

PRESSURE 



LOWER 

UPPER 






T-0- 

r« 

0* 




I 

X 

CP 

Ml 

CP 

Ml 




1 

-4.826998 

-O.OOObOC 

1. 100009 

-0.000000 

I.IOOCOO 



3 

2 

-1.472160 

-0. 00 0000 

1.100000 

-0.000000 

1.100030 



B 

3 

-1.170661 

.090000 

1.1000U9 

.COOdOO 

1.130000 


« 

0 

4 

-.972966 

.090000 

1.100000 

.dooooi) 

1.130000 


* 

a 

9 

-.809857 

.099657 

1.093759 

.009657 

1.093759 



e 

6 

-.693469 

.165719 

.987442 

.165719 

.997442 


* 


7 

-.479854 

.335488 

.856937 

.335488 

.856937 


B « 


8 

-.299092 

.391359 

.809399 

.391359 

.80 9399 


B * 


9 

-.178882 

.458984 

.748207 

.458584 

.746207 


B * 


10 

-.114702 

.527590 

.679639 

.527593 

.679689 


B * 


11 

-.075551 

.597217 

• 60270 9 

.597217 

.602709 

B 

♦ 


12 

-.050198 

.669409 

.51C78S 

.669499 

.510788 

B 



13 

-.032930 

.745001 

.392083 

.745001 

.392083 

8 



lA 

-.020918 

'.62 5C03 

.20(750 

.825033 

.230750 

8 

* 


15 

-.011063 

.911035 

0.000000 

.911035 

3.3C9000 

B 



16 

-.003465 

1.005732 

0.000000 

1,005732 

0.000000 

8 

* 




AIRFOIL LEADING EDGE 




airfoil 

LbADtHG cOGL 

17 

.003024 

1.209373 

O.OOOCOO 

.891538 

3.000(00 L 

U 

♦ 


18 

.008803 

.801151 

.272247 

.451359 

,755304 

L 

u * 


19 

.014240 

.614255 

.582325 

.259813 

.917404 

L 

J ♦ 


20 

.019568 

.502088 

.706787 

.154067 

.995772 


L ♦ 


21 

.029061 

.426305 

.778190 

.973993 

1.051294 


L * 0 


22 

.030961 

.370353 

.827592 

,025077 

1.063719 


L * 

u 

23 

.037614 

.325600 

.865079 

,006299 

1.095991 


L ♦ 

u 

2A 

.045413 

.286976 

.896171 

-.017892 

1.111471 


L ♦ 

u 

25 

.054966 

.251249 

.924000 

-.042969 

1.127352 


L • 

u 

26 

.067013 

.216493 

.950321 

-. 066654 

1.142086 


L* 

u 

27 

.082363 

.181768 

.975852 

-.089946 

1.1565^5 



u 

28 

.101517 

.146271 

1.C013C6 

-.113000 

1.170561 


* 

u 

29 

.124201 

.11C795 

1.026116 

134861 

1.183726 


*L 

u 

30 

.149372 

.080210 

1.947033 

-.154744 

1.195574 


♦ L 

u 

31 

.175806 

.055675 

1.063515 

-.172279 

1.205927 


* 

L U 

32 

.202983 

.034856 

1.H773&3 

-.187484 

1.214832 


* 

L U 

33 

.229179 

.017186 

1.088868 

-.200598 

1.222461 


« 

L U 

34 

.255353 

.002066 

1.096668 

-.211931 

1.229015 


* 

L U 

35 

.281029 

-.011002 

1.197068 

-.221791 

1.234684 



L U 

36 

.306213 

-.022414 

1.114351 

-.233495 

1.23962S 


* 

L J 

37 

.330950 

-.032473 

1.120732 

-.238012 

1. 243968 


♦ 

L U 

38 

.355299 

-.041416 

1.126375 

-.244774 

1.Z4781S 


* 

L J 

39 

.379323 

-.049426 

1.1314S5 

-.259826 

1,251249 


* 

L J 

40 

.403081 

-.056650 

1.135922 

-.266280 

1.234335 


m 

L J 

\l 

.426629 

-.C632Q4 

1.14DC05 

-.261224 

1.257126 


* 

L U 

42 

.450015 

-.069181 

1.143715 

-.265729 

1.259664 


* 

L J 

43 

.473283 

-.074658 

1.147106 

-.269856 

1.261985 


* 

L J 

44 

.496469 

-.0797C3 

1.150219 

-.273656 

1.264117 


• 

L U 

45 

.519582 

-.084375 

1.153095 

-.277172 

1.266087 



L U 

46 

.542669 

-.088726 

1.155767 

-.283444 

1.257918 



L J 

47 

.965740 

-.09 2806 

1.158267 

-.283508 

1.269633 


♦ 

L U 

48 

.588807 

-.096660 

1.169623 

-• 296396 

1 .271243 



u u 

49 

.611881 

-.100329 

1.162862 

-.289145 

1.272774 


* 

L U 

90 

.634971 

-.103852 

1.165007 

-.291780 

1.274241 


* 

L U 

51 

.658084 

-.137262 

1.167CB1 

-.294332 

1,275659 


* 

L U 

52 

.681229 

-.11(593 

L. 169103 

-.296828 

1.277046 


* 

L U 

53 

.704417 

-.113879 

1.171w93 

-.299295 

1.278415 


* 

L U 

54 

.727663 

-.117150 

1.173071 

-• 301760 

1.279781 


* 

L u 

99 

.790988 

-.12U44C 

1.175r53 

-.304248 

1.281158 


* 

L U 

96 

.774418 

-.123784 

1.177074 

-.306785 

1.282561 



L U 

57 

.797988 

-.12 7220 

1,179141 

-.309400 

1.284006 



L U 

58 

.821742 

-.130788 

1.151284 

-.312120 

1.2855C7 



L U 

99 

.849736 

-.134531 

1,133528 

-.314979 

1.287082 


• 

L U 

60 

.870039 

-.138498 

1.185902 

-.318012 

1.288752 



L U 

61 

.894736 

-.142744 

1.186438 

-.321263 

1.Z9C539 


♦ 

L J 

62 

.919931 

-.147334 

1.191172 

-.324783 

1.292471 


♦ 

L U 

63 

.945757 

-.152342 

1.194149 

-.328632 

1.294581 


* 

1 U 

64 

.972377 

-.157863 

1.197422 

-.332891 

1.296913 



L U 

69 

1.000009 

-.107273 

1.167088 

-.204855 

1.224927 


* 

L J 



AIRFOIL TRAILING EDGE 




AIRFOIL 

TRAILING EDGE 

66 

1.028899 

-.078862 

1.149701 

-.078862 

1.149731 


* 

B 

67 

1.099441 

-.051269 

1.I32S59 

-.051269 

1.132559 


* 

B 

68 

1.092135 

-.044428 

1.128269 

-.044428 

1.126269 


• 

B 

69 

1.127723 

-.041877 

1.126665 

-.041877 

1.126665 


« 

B 

70 

1.167351 

-.040240 

1.125634 

-.040240 

1.125634 


* 

B 

71 

1.212946 

-.038992 

1.124868 

-.036992 

1.12464B 



0 

72 

1.268145 

-.038174 

1.124332 

-.038174 

1.124332 


* 

a 

73 

1.341184 

-.038225 

1.124365 

-.038225 

1.124365 


* 

a 

74 

1.456831 

-.039577 

1.125217 

-.039577 

1.125217 


* 

a 

75 

1.671514 

-.038742 

1.124691 

-.038742 

1.124691 


* 

d 

76 

1.876313 

-.032662 

1.120852 

-.032662 

1.120852 


0 

B 

77 

2.042561 

-.023734 

1.115191 

-.023734 

1.115191 


* 

B 

78 

2.209059 

-.015180 

1.109739 

-.015180 

1.139739 


0 

3 

79 

2.406774 

-.01(460 

1.196721 

-.010460 

1.106721 


0 

B 

80 

2.702997 

-.022405 

1.114345 

-.022435 

1.114345 


0 

a 

81 

4.890373 

-.048029 

1.130529 

-.048029 

1,130529 


* 

Q 


flgura 4.7.- Contlnnad 



'GRID VALUfcb T(J» J« I TO' 6* 


-S. 200000 

-2.994100 

-1.722837 

-1.285224 

-1.021060 

-.843611 

-.719701 

-.618741 

-.942402 

-.480484 

-.429040 

-.385439 

-.347895 

-.314984 

-.285869 

-.259787 

-.236188 

-.214639 

-.194799 

-.176391 

-.159191 

. -.143013 

-.127702 

-.113124 

: -.099167 

-.089732 

-.072733 

-.060093 

-.047742 

-.035615 

-.023653 

-.911803 

.011800 

.023693 

.035615 

.047742 

.060093 

.072733 

.089732 

.099167 

' .CL13124 

.127702 

.143013 

.159191 

.176391 

.194799 

.214639 

.23al88 

.299787 

.289869 

.314984 

.347859 

.385439 

.429040 

•480484 

.542402 

.618741 

.715701 

.843611 

1.021060 

1.285224 

1.722837 

2.594100 

5.200003 


SJNIC LINE OUTPUT 

***************** 


SONIC LINE COORDINATES 
V X-SDNIC 


2.5941C 

-.27198 

.49553 

1.7228 4 

-.43613 

.43866 

1.28522 

-.5 2395 

.35835 

1.02106 

-.56660 

.30646 

.84361 

-.5 93 80 

.27041 

./71570 

-.61232 

.24028 

.61874 

-.62540 

.21731 

.S4Z4C 

-.63493 

.19866 

.48048 

-.64203 

.18360 

.42904 

-.64744 

.17036 

.38544 

-.6 5163 

.15928 

.34786 

-.55494 

.14896 

.31498 

-.65758 

.14051 

.28587 

-.65969 

.13261 

.25979 

-.66143 

.12467 

.23619 

-.56287 

.11832 

.21464 

-.66409 

.11214 

.19480 

-.66512 

.10597 

.17639 

-.66601 

.09993 

.15919 

-.56678 

.C9471 

.14301 

-.66744 

.08941 

..1277C 

-.66803 

.1-8378 

.11312 

-.66854 

.07868 

.0991? 

-.66900 

.07364 

.08573 

-.66940 

.068C1 

.07273 

-.66975 

.C62B1 

.06009 

-.67006 

.05705 

.04774 

-.67034 

.05109 

.03561 

-.67058 

.04429 

.02365 

-.67079 

.03677 

.0118C 

-.67097 

.02738 

saor LocAnaN 


-.01180 

-.67125 

.11132 

-.02365 

-.67135 

.12039 

-.03561 

-.67142 

.12902 

-.04774 

-.57147 

.13734 

-.06009 

-.67149 

.14460 

-.07273 

-.67148 

.15168 

-.08573 

-.67144 

.15940 

-.09917 

-.67136 

.16640 

-.11312 

-.67124 

.17292 

-.12770 

-.57108 

.18000 

-.14301 

-.67087 

.18736 

-.15919 

-.67059 

.19436 

-.17639 

-.67025 

.20119 

-.19480 

-.66982 

.20911 

-.21464 

-.56929 

.21710 

-.23619 

-.668 62 

.22503 

-.25979 

-.66780 

.23383 

-.28587 

-.66677 

.24336 

-.31498 

-.66547 

.25306 

-.34786 

. -.66380 

.26439 

-.38544 

-.66165 

.27640 

-.42904 

-.65878 

.29019 

-.48048 

-.65487 

.30519 

-.54240 

-.5 4940 

.32332 

-.61874 

-.64169 

.34473 

-.7157C 

-.63059 

.37075 

-.84361 

-.61418 

.46162 

-1.02106 

-.58911 

.44366 

-1.2BS2Z 

-.54893 

.49611 

-1.72284 

-.474 80 

.56551 

-2.99410 

-.30048 

.63440 


ri 9 tir« 4.7.- Contlntf^d 


t2 



SHOCK WAVE DRAG AND TOTAL PRESSURE PROFILE OUTPUT 


IHVtSCIO WAKE PROFILES FOR INDIVIDUAL SHOCK WAVES WITHIN HanENTUn CONTOUR 
SHOCK 1 


HAVE DRAG FOR 

THIS SHOCK* 

.007130 

Y 

CDIY> 

PO/POINF 

-Z.59A1C019 

.00101194 

.9992 7456 

-1.722S3680 

.00085003 

.99939063 

-1.285223SS 

.00138639 

.99900612 

-1.02106025 

.00160950 

.99864618 

-.RA36I099 

.00179065 

.99871632 

-.7157010A 

.00195214 

.99860055 

-.61B7A102 

.00209990 

.99849462 

-.5A2A0166 

.00223585 

.99839717 

-.48046365 

.00181152 

.99870136 

-.42904031 

.00190076 

.99863739 

-.3654389C 

.00197252 

.99858594 

-.34785516 

.00203096 

.99854405 

-.31496449 

.00207900 

.99853961 

-.28586858 

.00211879 

.996481'>6 

-.25978714 

.00215191 

.99845734 

-.23618771 

.00217958 

.99843751 

-.21463894 

.00220274 

.99842090 

-.19479857 

.00222211 

.99840731 

-.17639103 

.00223829 

.99839541 

-.15919133 

.00225174 

.99838577 

-.14301344 

.00226283 

.99837783 

-.1277C160 

.00227186 

.99837135 

-.11312379 

.00227907 

.99836616 

-.09916674 

.00228468 

.99636216 

-.08573207 

.00228882 

.99835919 

-.0727332Q 

.00229164 

.99635717 

-.06009296 

.00229324 

.99835603 

-.04774152 

.00229369 

.99835570 

-.03561482 

.00229305 

.99635016 

-.02365311 

.00229137 

.99835736 

-.01179972 

.00228868 

.99835929 

.01179972 

.00228027 

.99836532 

.02365311 

.00227454 

.99836943 

.03561482 

.00226775 

.99637431 

.04774152 

.00225986 

.99837995 

.06009296 

.00225080 

.99638645 

.07273320 

.00224051 

.99839383 

.08573207 

.00222884 

.99840219 

.09916674 

.00221572 

.9984116C 

.11312379 

.00220096 

.99842218 

.12770160 

.00218439 

.9964340E 

.14301344 

.00216578 

.99844740 

.15919133 

.00214485 

.99846240 

.17639103 

.00212127 

.9984793C 

.19479857 

.00209464 

.99849839 

.21463894 

.30206445 

.99852104 

.23618771 

.00203007 

.99654468 

.25978714 

.00199072 

.99857289 

.28586858 

•3C19454D 

.99860538 

.31498449 

.00189283 

.99864307 

.34785516 

.00183133 

.99868716 

.38543890 

.00234772 

,99831697 

.42904031 

.00224426 

.99839113 

.48048365 

.00213317 

.99847078 

.54240166 

.0 020 1 38 6 

.99855631 

.61874102 

.00188553 

.99864830 

.71570104 

.00174673 

.99874781 

.84361099 

.00159 396 

.99885731 

1.02106025 

• 0U141739 

.99898390 

1.28522355 

.00118417 

.99915109 

1.72283680 

.00080469 

.99942313 

2.59410019 

.0CO67653 

.99951501 


SHOCK WAVE EXTENDS OUTSIDE CONTOUR 

PRINTOUT OF SHOCK LOSSES ARE NOT AVAILABLE FOR REST OF SHOCK 


ORAG CDEFrlCIENT OUTPUT 

♦**♦*♦♦* **♦♦♦**♦♦ 


CALCULATION OF ORAG COEFFICIENT BY NQNENTUH INTEGRAL NETHOO 


BOUNDARIES 

□F CONTOUR USED 

CONTRIBUTION 

TO CO 

UPSTREAM 

X • 

-1.17C661 

COUP 


O.OOOCUO 

OOVNSTREAN 

X • 

.727663 

CDOQWN 


.DliDiB 

TOP 

Y ■ 

2.S94I0D 

CDTOP 


. 034202 

BOTTOn 

Y ■ 

-2 . 594100 

COBOT 


.D35363 

BODY AFT OF 

X « 

.72 7663 

COBODY 


.007620 


TOTAL contributions 

AROUND CONTOUR 


.027963 

THERE ARE 

1 SHOCKS INSIDE CONTOUR 

. TOTAL COWAVE 

■ 

.Cr07130 


NOTE - ONE OR NORE SHOCKS EXTEND OUTSIDE OF CONTOUR 
COWAVE DOES NOT EQUAL TOTAL HAVE DRAG 

ORAG CALCULATED FRDH HONENTUH INTEGRAL CD • .035093 


TINE TO RUN CASE HAS 32. AA SECONDS. Output. 

PlguT* 4.7.- Concludad 



0 , 


SMPI2 CASE 5 - 

$zn> 

BCTYPE-3, H-2. 
BCFOII^l, 

$SI1D 


5DPERSOHIC-mCA0006 AIKFOIL-FREE JET SIHDIATIOH 
, EHKCH>1.1, AMESH-.TRUE., ALFHA>2.0, DELTA-0. 06, 


(a) Input. 


SAMPLE CASE 5 - SUPERSONIC - NACA00J6 AIRFOIL 


FREE JET SIMULATION 


INPUT parameters 


ENACH • 1.10000 

POR 

• 0.30090 

I MIN 


1 6CTYPE 

■ 3 

AMES-i ■ T 


DELTA • .C6CCt CISET 

• 0.3J9J0 

IMAXl 


81 BCFOIL 

• 1 

PHYi ■ T 


alpha • 2.CE0C0 

EPS 

• .20000 

JMIN 


1 PSTART 

• 1 

PSAVt - F 


AK • 0.00000 RIGF 

• 0.00090 

JMAXI 


64 PRTFLO 

■ i 

KUTTa'- T 


GAM • 1.40000 NCIRC 

■ 1.00090 

MAXIT 


53J IPRTER 

• 11 

FCR ■ r 


F > O.bCOCO CVERGE 

• .00031 

NU 


133 SIMOEF 

- 3 



H ■ 2. OLOOC DVERGE 

• 10. S 

NL 


75 ICUT 

■ 2 



OE • l.aC.l. 90*1.95 









XIN 









-4.026950 -1.472160 


-1.170661 

-.972966 


-.8^9057 

.653469 

-,4748.>4 

- • 29 6-''9 2 

-.170002 -.114702 


-.075551 

-.050198 


-.332930 

.020518 

-.011 J63 

-,^^34l5 

•003C24 .OC06O3 


.314240 

.019568 


.325061 

.3309 61 

.037614 

. 346413 

.054966 .067013 


.082363 

.131517 


.124201 

.149372 

.175396 

.262533 

.229179 .255353 


.261029 

.306213 


.330950 

.355299 

.379323 

.41 3,81 

.426629 . .454015 


.473200 

.496460 


.519582 

.542669 

.665740 

.384JL7 

.611631 .634971 


.658384 

.681229 


.794417 

.727663 

.750968 

.774418 

.797908 .021742 


.845736 

.073339 


.894736 

.919931 

.945767 

.9723/7 

l.OOOCCO 1.320099 


1.059441 

1.392135 


1.127723 1 

.167351 

1.212946 

1.268.46 

1.341104 1.456833 


1.671514 

1.976313 


2.042561 2 

.209055 

2.40o774 

2.7-J2997 

4.89C373 









YIN 









-1.000000 -.906455 


-.021465 

-.744089 


-.673514 

.609036 

-.650046 

-.4965..' 

-.446463 -.413997 


-.359253 

-.32J914 


-.285702 

.253369 

-.223696 

-.196488 

-.171573 -.148797 


-.120925 

-.109135 


-.092119 

.376584 

-.0o2744 

-.050426 

-.039566 -.030108 


-.322304 

-.015212 


-.309701 

. J95441 

-. 1C2413 


.000603 .002413 


.005441 

.009731 


.015212 

.322004 

.03V. 98 

. 2 J95o6< 

.050426 .062744 


.076584 

.092319 


.1U9135 

.128025 

.148797 

.l7i573 

.196400 .223696 


.253369 

.285702 


.320914 

.359253 

.400997 

.446468 

r496010 .551046 


.6C9036 

.673514 


.744009 

.321465 

.906455 

1 . 0.0000 


Figure 4-8.- Sample teat case 5 - auperaonic, free jet aimulatlon 
(abbreviated output) : EACA 0006 airfoil, 6 - 0.06, a - 2°', 

M - 1.1. H-2. 



MTERHEDIATE OUTPUT FOR COARSE HES4 



ME 

- l.SOOO EPS 

• 

■ 2003 

NAXIT FOR 

THIS 

MESH • 

125 






tTERATIOH 

CL 

cn 

lERR 

JERR 

ERROR 

IRL 

JRL 

BIGRL 

ERCIRC 

ICPU 

CPERRU 

ICPL 

CPERRL 

10 


.29775 

-.05325 

20 

8 

.4890E+00 

19 

9 

•2022E+04 

.6227E.00 

16 

.14aic + Jl ’ 

17 

.2L13E+31 

20 


•Z3063 

-■C4624 

20 

6 

.3097E*^9J 

19 

9 

.1396E+04 

•4300E.30 

17 

.11722+03 

17 

.2672E+J0 

30 


.21871 

-.04396 

20 

8 

.2199E+gn 

19 

9 

.10556+04 

.3237E+30 

17 

.2a47E-31 

17 

,55946-01 

40 


.22180 

-.04418 

20 

5 

.2045E.00 

19 

9 

.1115E+04 

.3406E+00 

6 

■ .5d«7E-02 

.7 

.A493E-01 

90 


.22290 

-.04427 

20 

8 

.2DS1E4-09 

19 

9 

•1136E404 

•3472E.00 

b 

.3617E-J2 

17 

• 60&2£<^D2 

60 


.22290 

-.04426 

20 

8 

• 2072EO0 

19 

9 

.1140E+D4 

.34B2E+D0 ' 

b 

.17666-02 

7 

.139at-02 

70 


■ 22246 

-•04424 

20 

8 

.2063E+00 

19 

9 

.1140E+04 

.34S1E+00 

b 

.B315E-r;3 

7 

.68766-03 

60 


.22249 

-.04424 

29 

8 

.ROSSEFDO 

19 

9 

•1140E+C4 

•3481E400 

b 

.4169E-03 

7 

.3419E-33 

90 


.22244 

-.04423 

20 

B 

.2096E4'00 

19 

9 

.1140E+O4 

.3482E+0C 

6 

.2120E-J3 

7 

•1713E-J3 

100 


.22244 

-.C4423 

20 

8 

.2059E«00 

19 

9 

.1140E+Q4 

•3482E+00 

b 

.137aE-:3 

7 

.5622E-J4 

110 


.22244 

-.04423 

20 

8 

■2094EA30 

19 

9 

.1140E+04 

•3462E+00 

6 


7 * 

•434d£-D4 

120 


.2224 4 

-.04423 

20 

8 

.2054EF90 

19 

9 

.1140E+04 

.3482E+30 

b 

.2771E-CH 

7 

•2196b-0^ 




****** iteration 

LIMIT 

REACHED **** 

** 














INTERNEOIATE OUTPUT 

FOR HEDIUh NESri 






ME 

• 1.9000 EPS 

- 

i2000 

HAXIT FOR 

THIS 

MESH ■ 

253 






ITERATION 

CL 

cn 

lERR 

JERR 

ERROR 

IRL 

JRL 

BIGRL 

ERCIRC 

lCt»J 

: PERKU 

ICPL 

CPERkL 

10 

.1766 7 

-.03404 

37 

16 

.3445E-01 


lb 

.18686+04 

.3594E-01 

9 




20 

.17601 

-.03392 

13 

17 

,3936E-)2 

9 

i 6 

.1796E+03 

.1148E-i3 

33 


33 

.3bJbc-Jl 

30 

.17701 

-.03391 

10 

17 

.3036E-02 

9 

lb 

.i384£+03 

.318PE-53 


.b‘fSic-:2 

i 1 

•bbb9c-Q2 

40 

.17760 

-.03374 

10 

17 

•231CE-02 

9 

16 

.10486+03 

.18226-03 

23 



• 7A-j5c-J2 

50 

.17806 

-.03357 

10 

IT 

. 1736E-02 

9 

lb 

.78846+62 

.15286-33 

23 

• «n;^E-..2 

11 

ao999t-j2 

60 

.17844 

-.03344 

10 

17 

•1294E-02 

9 

lo 

.6S84E+02 

.1216E-J3 

22 

• 2?o^t”i.2 

Ij, 

a-»7d.t--2 

70 

.17871 

-.03334 

10 

17 

•9553E-03 

9 

lo 

.4349E+02 

.8 333E-04 

22 

• 213bc-)2 

11 

a37*i£-J2 

80 

.17890 

-.03327 

13 

17 

.70E0E-03 

9 

16 

.32046+12 

,5892E-.14 

23 

*i54lE->2 

11 

.2772t-J2 

90 

.17904 

-.03322 

10 

17 

. 5155E-03 

9 

lb 

.2352E+02 

.42776-04 

2 i 

.ni7i:-v2 


a2w/3E-.i2 

100 

.17914 

-.C3318 

13 

17 

.37706-03 

9 

16 

.17216+32 

.33956-14 

22 

.6il3e-33 

ll 

al.b33i;-.>2 

110 

.17921 

-.03316 

10 

17 

•2752E-03 

9 

16 

.12576+C2 

.22476-04 

23 

, b3956-v 3 

i j 

all32r-J2 

120 

.17926 

-.13314 

10 

17 

•2006E-03 

9 

16 

.91686+01 

.16326-04 

22 

a ^2oie- .3 

X _ 

ad2.enL-w3 

130 

.17930 

-.C3312 

13 

17 

•1462E-33 

9 

lb 

.66806+01 

.11846-24 

^2 

a 3ilbL-JJ 

11 

atOd7L-03 

140 

.17933 

-.03311 

10 

17 

.1064E-03 

9 

16 

.48646+01 

.85886-25 

22 

a 22i>^E— ‘ 3 

i X 

a ‘f<|-<oL -.^0 

150 

.17935 

-.03311 

10 

17 

.7742E-34 

9 

lb 

.35406+01 

.62346-05 

22 

• 1 6‘tot"2j 

11 

.32t3b-j3 

160 

.17936 

-.C331C 

IJ 

17 

.56326-34 

9 

16 

.25756+01 

.45296-2 5 

22 

• ll9oc-o3 

Ll 

a23b3L-03 

170 

.17937 

-.03310 

10 

17 

.40966-04 

9 

16 

.18736+31 

,32946-25 

22 

a 309-7 E— 

il 

ai72it-.i3 

180 

.17938 

-.03309 

10 

17 

.29786-04 

9 

lb 

.1362E+01 

•23966-J5 

22 

ab319t-04 

11 

al2!>3t-J3 

190 

.17939 

-.C3309 

10 

17 

.2165E-04 

9 

1 6 

,99116+36 

.17436-05 

22 

a ‘ro92E-. 'f 

XI 

.9119t-0A 

200 

.17939 

-.G33C9 

10 

17 

.1573E-04 

9 

lo 

.7196£+Cn 

.12686-05 

22 

a 33 37t-vV 

. ll 


210 

•17940 

-.03309 

10 

17 

.11446-04 

9 

16 

.52306+00 

.92156-06 

22 

a 2^2oc-*0^ 

11 

a^bl5L-2A 

220 

.17940 

-.03309 

10 

17 

.631CE-05 

9 

16 

.EBOIF+OO 

.65976-26 

22 

al762t-*<* 

li 

a 3 d J6t-C<l 


SOLUTION converged ****** 


Figure 4-a.- Contlnaed 
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INTERHEOIATe OUTPUT FOITFTNE R65U 


U£ 

- 1.9S00 EPS 

• 

2000 

haxit for 

THIS 

MESH • 

500 






iteration 

CL 

CM 

lERR 

JERR 

ERROR 

IRL 

JRL 

BIGRL 

ERCIRC 

ICPU 

CPERRU 

ICPL 

CPERRL 

10 

•17816 

-.C333D 

a 

33 

•3351E-02 

16 

32 

.3816E+03 

.2225E-04 

17 

.1178E+31 

17 

.1371E+31 

20 

•17814 

-.C332S 

15 

18 

.1189E-02 

17 

32 

.2861E403 

.9872E-06 

22 

.6199E-02 

21 

.91046-02 

30 

.17821 

-.03319 

17 

36 

.9096E-03 

17 

32 

.2281E4D3 

.40886-04 

2*ir 

.25acE-u2 

21 

.4934E-J2 

*0 

.17843 

-.03320 

80 

32 

.7876E-03 

17 

32 

.1934E+03 

.8575E-04 

65 

.16246-02 

20 

.27246-02 

SO 

.17867 

-.C3322 

18 

35 

•O715E-03 

17 

32 

.1713E+03 

.8253E-04 

65 

.1430E-02 

22 

.15916-02 

60 

.17886 

-.03322 

17 

33 

.58C3E-03 

17 

32 

.148CE+03 

.5796E-04 

36 . 

.1152E-02 

22 

.1978E-02 

79 

.17901 

.-.ca320 

17 , 

30 

.4923£-a3 

.413/b-S3 

17 

32 

.1254E+03 

.40506-34 
,4173 £-114 

* 2? 

.11256-02 

22 

.19216-12 
— .Tr<f9 6-^ 

80 

.1/913 

~«C33X8 

IT 

3B 

17 

32 

.lfi5TE+D3 " 

■ “ZT ~ 

7B778t-'j3 

— '<n“ 

90 

.17924 

-.03317 

17 

36 

.34736-03 

17 

32 

.8846E402 

.3559E-04 

Zt 


21 

.1446E-J2 

100 

.17933 

-.L3316 

IT 

36 

.2928E-03 

17 

32 

.74666+02 

.3017E-04 

Z1 

.5928E-J3 

21 

.ii786->2 

110 

.17941 

-.03315 

17 

36 

.2470E-03 

17 

32 

.63316.02 

,25UE-C4 

27 

.50376-03 

21 

.995C6-33 

120 

. 17947 

-.03314 

17 

36 

.20826-03 

17 

32 

.5314E+C2 

.21DtE-04 

11 

,42738-03 

21 

■ .84236-w3 

130 

.17953 

-.C3313 

17 

36 

.17556-03 

17 

32 

.44SOE+02 

.17626-04 

27 

.36J2E-03 

21 

.71446-03 

lAO 

.17957 

-.03313 

17 

36 

.1479E-03 

17 

32 

•3776E+C2 

.14B7E-J4 

Z1 

.3J50E-03 

21 

.6031E -03 

ISO 

.17961 

-.03312 

17 

36 

.1246E-03 

17 

32 

.3182E+02 

.1249E-04 

26 

. 2574E-J3 

21 

. 3C 96E-J3 

160 

.17964 

-.03312 

17 

36 

.1049e-03 

17 

32 

.26816+02 

.1048E-04 

26 

. 2lbaE-'J3 

21 

.43'0i6-J3 

170 

.17967 

-.C3311 

17 

36 

.88386-04 

17 

32 

.2258E+02 

•8925E-05 

26 

.Id276-!I3 

21 

« 3626c— 03 

180 

.17969 

-.03311 

17 

36 

. 7446E-34 

17 

32 

.1902E+02 

.7546E-0S 


. 13365— Ji 

21 

.St 176-J3 

190 

.17971 

-.<3311 

17 

36 

.6273E-14 

17 

32 

.I603E+02 

.63d3E-05 

2o 

.1293E-J3 

21 

.25626-03 

200 

.17973 

-.C3310 

17 

36 

.5234E-04 

17 

32 

.1350E+02 

.53?9E-j5 

2o 

,l-.9 jE-03 

21 

.21816-03 

210 

.17974 

-.03310 

17 

36 

.4451E-04 

17 

32 

.U38E+02 

•44776-J5 

2o 

.921 + t-v;4 

21 

..8336-03 

220 

.17975 

-.<3310 

17 

36 

.3750E-C4 

17 

32 

.9586E+01 

.3750E-J5 

26 

.77dBE-04 

21 

.15416-03 

230 

.17976 

-.03310 

17 

36 

.31596-34 

17 

32 

.B077E+C1 

.31546-1:5 

2 0 

. 6574c— v4 

cl 

.12986-03 

240 

.17977 

-.C331C 

17 

36 

•2661E-04 

17 

32 

.60046+01 

.26576-05 

26 

• 554 JE— j*. 

2. 

.lL’93t-53 

2S0 

.17978 

-.03310 

17 

36 

.22426-04 

17 

32 

•5733E+01 

.22396-05 

2s 

.465aE-34 

21 

.92116-04 

260 

.17978 

-.03310 

17 

36 

.1889E-34 

17 

32 

.4829E+C1 

.1887E-J5 

2o 

.39336-04 

21 

.7764C-J4 

270 

.17979 

-.03310 

17 

36 

.1591E-04 

17 

32 

.4069E+01 

.15a9c-05 

2o 

.3313C-04 

21 

.6543L-J4 

280 

.17979 

-.03309 

17 

36 

.13406-04 

17 

32 

.3427E+Q1 

.1338£-:5 

‘ib 

.2/91E-0+ 

21 

.35146-04 

290 

.17979 

-.03309 

17 

36 

.1129E-04 

17 

32 

.2aa7E+01 

.1127E-35 

Zb 

,2352c-c. 

21 

.4o 46 6 — j4 

300 

.17980 

-.03309 

17 

36 

.9511E-05 

17 

32 

.2432E+01 

.94686-06 

26 

.1984.E-J4 

21 

•39l4t-J4 


♦ SDLUTIO'4 CONVERGED »•♦ + + + 


‘ final OJTPJT ♦ 

‘ ♦ 


PRINTOUT IN PHYSICAL VARIABLES. 

DEFINITION OF SIMILARITY PARAMETERS BY KRUFP 
BOUNDARY CONDITION FOR FREE JET 
DIFFERENCE EQUATIONS ARE FULLY CONSERVATIVE. 

kutta condition is enforced. 


MACH ■ i.irootao 

DELTA ■ .C6U0C00 

ALPHA • 2.0CCOOOO 

K - -1.2A56397 

PARAHETfRS USED TO TRANSFORM VARIABLES 
TO TRANSONIC SCALING 


CPFACT ■ 
CDFACT • 
CMFACT • 
•CLFACT - 
YFACT - 
VFACT ■ 


.1^26687 
• r06S613 
.1AZ6B87 
.l'»26887 

2. A3SA913 

3. <t377A67 


Plgiire 4-8.- Continued 



FINAL OUTPUT FOR FINC NESH 


FORCE COEFFICIENTSj PRESSURE COEFFICIENT* AND NACH NUMBER 
(OR SINILARITT PARANETERI ON BOOT AND DIVIDING STREAM LINE* 

CL • .179793 

CM > -.033093 

CP* - .1A8116 


B • BEFORE OR BEHIND AIRFOIL 
U • UPPER AIRFOIL SURFACE 
L • LOVER AIRFOIL SURFACE 
* • CRITICAL PRESSURE 


LOWER UPPER 

y«0- T"0* 


I 

X 

CP 

11 

CP 

HI 



1 

-4.826958 

-o.oooooo 

1.100000 

-0.D0D903 

1.100000 

* 

d 

z 

-1.472160 

-o.cocooc 

1.100009 

-0.003090 

1.100000 


B 

3 

-1.170661 

-0.030000 

I.IGCDOO 

-D.33399S 

1.100000 

* 

B 

A 

-.972966 

-o.ooococ 

1.100000 

-0.000000 

1.100000 

* 

3 

5 

-.809857 

.000000 

1.100000 

.009390 

I.IOOOOO 

* 

B 

6 

-.653469 

.004128 

1.097336 

.004128 

1.U97336 


0 

7 

-.4798 54 

.160203 

.991394 

•163203 

.991394 

* 


a 

-.295092 

.350900 

.844091 

.353900 

.844091 

3 * 


9 

-.178882 

.428632 

.776067 

.428632 

.776067 

B ♦ 


10 

-.114702 

.505191 

.702663 

.505191 

.732663 

B ♦ 


11 

-.075551 

.581942 

.620416 

.581942 

.620416 

a * 


12 

-.030198 

.664116 

.518082 

.664116 

.518062 

B * 


13 

-.03293D 

.757400 

.368831 

.757480 

.368831 

3 * 


14 

-.020518 

.873372 

o.cscccc 

,873372 

o.oOGoo:. 

B * 


IS 

-.011063 

1.039884 

o.oooooo 

1.039884 

3.0300C3 

B ♦ 


16 

-.003465 

1.326950 

0.000000 

1.326950 

O.OOOOOU B 

* 




AIRFOIL LEADING EDGE 



AlRFGIt 

LtAOI>'i& CQGL 

17 

.0030 24 

1.330277 

0.000000 

.926390 

0.000000 L 

U * 


la 

.008803 

.699742 

.466796 

.300148 

.379264 

L U ♦ 


19 

.014243 

.522078 

.685413 

.163714 

.938881 

L U* 


ZO 

.019568 

.437645 

.767791 

.100125 

1.033461 

L ♦U 


21 

.025061 

.381418 

.818060 

.060113 

1.S60552 

L * 

Li 

22 

.030961 

.337251 

.855477 

.030970 

1.080119 

L • 

J 

23 

.037614 

.298972 

.886631 

.004678 

1.096931 

L * 

U 

24 

.045413 

• 263379 

.914646 

-.319436 

i. 112437 

1 * 

U 

23 

.054966 

.228482 

.941305 

-.043208 

1.127552 

L ♦ 

J 

26 

.067013 

.193095 

.967588 

-.067548 

1.1427C3 

1* 

U 

27 

.082363 

.156126 

.994305 

-.092332 

1.157976 

% 

u 

26 

.101517 

.116170 

1.022395 

-.117106 

1.173145 

* 

0 

29 

.124201 

.078579 

1.C4B136 

-.140930 

1.137355 

•L 

IJ 

30 

.149372 

.047527 

1.068932 

-.162869 

1.230383 


L J 

31 

.175806 

.020784 

1.086523 

-.182423 

1.211875 

* 

L J 

32 

.202583 

-.002261 

1.101456 

-.199570 

1.221364 

« 

L J 

33 

.229179 

-. C22176 

1.1142DC 

-.214566 

1.230534 

t 

L J 

34 

.255353 

-.03954C 

1.125193 

-.227748 

1.238105 

* 

L U 

35 

.281029 

-.05 4675 

1.134B14 

-.239443 

1.244733 

* 

1 U 

36 

.306213 

-.066600 

1.143356 

-.249931 

1.25-3742 

« 

L U 

37 

.330950 

-.0eiC26 

1.151034 

-.259440 

I. 256120 

« 

L J 

36 

.355299 

-.092383 

1.156008 

-.268151 

1. 261126 


L iJ 

39 

.379323 

-.102844 

1.164394 

-.276263 

1.265545 

* 

L J 

4C 

.40 3081 

-.112545 

1.1702S5 

-.283701 

1.269738 

* 

L li 

41 

.426629 

-.121590 

1.175756 

-.293724 

1.273653 


L U 

42 

.450015 

-.13C095 

1.189868 

-.'297333 

1.277326 


L U 

43 

. 473280 

-.138113 

1.135672 

3C3577 

1.283787 

* 

L U 

44 

.496463 

-.145719 

1.193211 

-. 309496 

1.284C59 

• 

L U 

45 

.519582 

-.152972 

1.194523 

-.315:29 

1.237165 

* 

L J 

46 

.542669 

-. 15 9922 

I .198641 

-.323510 

1. 293125 

* 

L U 

47 

.565740 

-.166619 

1.202595 

-.325677 

1.292961 

« 

L U 

48 

.588807 

-.173105 

1.206412 

-.333667 

1.295694 

* 

L U 

49 

.611881 

-.179424 

1.210119 

-.335517 

1.298345 

* 

L U 

50 

.634971 

-.185614 

1.213740 

-.34JZ65 

1.33-1935 

* 

L U 

51 

.658084 

-.191712 

1.217297 

-.344948 

1.333434 

* 

L d 

52 

.681229 

-.197753 

1.220610 

-.349600 

1.306012 

* 

L U 

53 

.704417 

-.203771 

1.224299 

-.354256 

1.396537 


L J 

54 

.727663 

-.20 9796 

1.227783 

-.358949 

1.311077 

♦ 

L J 

55 

.750988 

-.215058 

1.231278 

-.363710 

1.313649 

* 

L d 

56 

.774418 

-. 221990 

1.234803 

-.368571 

1.316269 

* 

L d 

57 

.797988 

-.228221 

1.238376 

-.373562 

1.313954 

« 

L d 

3B 

.821742 

-.234586 

1.242014 

-.378715 

1.321721 

4 

1 d 

59 

.345736 

-.241120 

1.245738 

-.384067 

1.324589 

4 

L J 

60 

.870039 

-.247866 

1.249571 

-.389656 

1.327575 

4 

L U 

61. 

.894736 

-.254872 

1.Z53539 

-.393528 

1.3307C8 

4 

1 u 

62 

.919931 

-.262194 

1.257673 

-.401736 

1.334GU 

4 

L U 

63 

.945757 

-.269906 

1.262012 

-.403346 

1.337519 

4 

L d 

64 

.972377 

-.278091 

1.266602 

-.415441 

1.341274 

* 

L U 

65 

l.OOCOOO 

-.234942 

1.242217 

-.303550 

1.230772 

4 

L U 



AIRFOIL TRAILING EDGE 



AIRFOIL 

trailing EDGb 

66 

1.028899 

-.189936 

1.216262 

-.189936 

1.216262 

4 

3 

67 

1.059441 

-.18 8360 

1.215343 

188360 

1.215343 


B 

68 - 

1.092135 

-.191908 

1.217411 

-.191908 

1.217411 

* 

B 

69 

1.127723 

-.19 6275 

1.219951 

-.196275 

1.219951 

4 

B 

70 

1.167351 

-.201266 

1.222848 

-.201266 

1.222848 

4 

8 

71 

1.212946 

-.207003 

1.226169 

-.207003 

1.226169 

4 

3 

72 

1.268145 

-.213638 

1.230114 

-.213838 

1.230114 

4 

3 

73 

1.341184 

-.222620 

1.235165 

-.222623 

1.235165 

4 

3 

74 

1.456833 

-.233196 

1.241221 

-.233196 

1.241221 

4 

3 

75 

1.671514 

-.237715 

1.243799 

-.237715 

1.243799 

4 

3 

76 

1.876313 

-.227569 

1.238002 

-.227569 

1.238002 

4 

B 

77 

2.042561 

-. 200768 

1.222559 

-.200768 

1.222559 

4 

a 

78 

2.209055 

-.147135 

1.191054 

-.147135 

1.191054 

4 

a 

79 

2.406774 

-.010744 

1.106902 

-.010744 

1.136902 

4 

a 

80 

2.702997 

.095516 

1.036618 

.095516 

1.036616 

*B 


81 

4.890373 

.19 7149 

1.028631 

.137149 

1.028631 




Flgur* 4-6.- Continuad 


•7 



***** CAUTION 

iNAXIHUN MACH NUMBER EXCEEDS 1.3 

jSHOCK JUMPS IN ERROR IF UPSTREAM NORMAL MACH NUMBER GREATER THAN 1.3 


Y-GRID VALUES YC 
-2.«OOOO0 -1.B12909 

-.892929 -.881993 

-.3A31A6 -.297595 

-.079132 -.060216 

.001205 .004827 

.100852 .125487 

.392976 .447391 

.992019 1.100091 


II J* 1 TO 64 
-1.64Z930 -1.488178 

-.716505 -.641829 

-.256050 -.218269 

-.044007 -.030425 

.010882 .019431 

.153167 .184038 

.506738 .571404 

1.218072 1.347027 


-1.347027 

-.571404 

-.184038 

-.019401 

.030425 

.216269 

.641829 

1.488178 


-1.218072 

-.506738 

-.153167 

-.010882 

.044007 

.256C50 

.718505 

1.642930 


-1.100091 

-.447391 

-.125487 

-.004827 

.060216 

.297595 

.801993 

1.8129D9 


-.992319 
-.392976 
-.1S3B52 
-.001205 
.079132 
.343146 
.892925 
2.90JJO J 


SONIC LlNc OUTPUT 

************** 

SONIC LINE COORDINATES 


Y X-SONi: 


1.48818 

-.13536 

-.08245 

1.34703 

-.21078 

.003 5C 

1.21807 

-.25496 

• C7413 

1.10009 

-.29580 

.12619 

.99202 

-.32908 

•15905 

.69293 

-.3 5538 

.17C72 

.80199 

-.37752 

.17473 

.71851 

-.39664 

.17536 

.64183 

-.41325 

.17391 

.57140 

-.42762 

.171 22 

.50674 

-.43996 

.16407 

.44739 

-.45044 

.15576 

.39298 

-.45923 

•14623 

•34315 

-.46649 

.13688 

.29759 

-.47241 

.12701 

.25605 

-.47714 

.11763 

.21827 

-.48100 

.10839 

.18404 

-.48425 

.C9894 

.15317 

-.48675 

.09039 

.12549 

-.48866 

.C8137 

.10085 

-.49009 

.C7344 

.07913 

-.49114 

.C6502 

.06022 

-.49169 

.05720 

.04401 

-.49242 

.C496S 

.03U42 

-.49278 

.04218 

.01940 

-.49301 

.0 3503 

.01088 

-.49316 

.02632 

.00483 

-.49324 

.( 2229 

.00121 

-.49329 

.01756 

BOOY LOCATION 


-.00121 

-.49331 

.08738 

-.00483 

-.49335 

.09073 

-.01088 

-.49339 

.09566 

-101940 

-.49343 

.10152 

-.03042 

-.49343 

.10968 

-.04401 

-.49336 

.11789 

-.06022 

-.49318 

.12649 

-.07913 

-.49283 

.13660 

-.10085 

-.49225 

.14599 

-.12549 

-.49135 

.15642 

-.15317 

-.49005 

.16675 

-.18404 

-.48823 

.17659 

-.21827 

-.46576 

.18767 

-.25605 

-.46247 

.19783 

-.29759 

-.478 34 

.20629 

-.34315 

-.47335 

.21625 

-.39298 

-.46705 

.22703 

-.44739 

-.,45923 

.23562 

-.50674 

-.4 4969 

.24283 

-157140 

-.43823 

.24603 

-.64183 

-.42465 

.25085 

-.71851 

-.40872 

.25089 

-.80199 

-.39017 

.24703 

-.89293 

-.36854 

.23650 

-.99202 

-.34294 

.21289 

-1.10009 

-.31114 

.17026 

-1.21807 

-.26934 

.10499 

-1.34703 

-.22295 

.CZ188 

-1.48818 

-.15083 

-.07634 


Figure 4-0,- Continued 
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SHOCK HAVE 0RA6 AND TOTAL PRESSURE PROFUE OUTPUT 

«**««***««••«« **##t*P***PP*PPPPPPP**PPP**PP*APPP* 

INVISCID HAKE PROFILES FOR INDIVIDUAL SHOCK HAVES HITHIN HOHENTUH CONTOUR 
SHOCK 1 


WAVE DRAG FOR 

THIS SHOCK* 

.003882 

Y 

CD(T) 

PO/POINF 

-1.6BB17799 

.00002216 

.99998611 

-1.36702736 

.00023112 

.99983631 

-1.21B07223 

.0002703C 

.99980623 

-1.10009107 

.00065835 

.99952806 

-.99202912 

.00082368 

.99960952 

-.8929293B 

.OC098601 

.99929659 

-.80199366 

.00116331 

.99918038 

-.71B90962 

.00130623 

.99906359 

-.66182866 

.90167691 

.99896123 

-.97160631 

.00165876 

.99881987 

-.90673799 

.00185660 

,99857062 

-.66739136 

.0020655 8 

.99851923 

-.39297972 

.00229307 

.99835615 

-.36316979 

.00253636 

.99818173 

-.29799666 

.00279 363 

.99799765 

-.25606987 

,00209671 

.99869568 

-.21826935 

.00222358 

.99860596 

-.18603862 

,00233062 

.99832923 

-.15116703 

,0026189 3 

.99826592 

-.12968763 

.00268856 

.99821600 

-.10089215 

.00256057 

.99817872 

-.07913226 

.00257697 

.99815268 

-.06021992 

.00260013 

.99813602 

-.06606713 

.00261318 

.99812667 

-.03062666 

.00261893 

.99812256 

-.01960111 

.00262001 

.99812176 

-.01OSB238 

.00261 862 

.99812276 

-.00682689 

.00261665 

.99812632 

-.0012T527 

.00261669 

.99812558 

.0012C527 

.00261332 

.99812657 

.00682669 

.00261097 

.99812625 

.01086238 

.00260628 

.99613161 

.0196C111 

.00259806 

.99813751 

,03062666 

.00258670 

.99816708 

.06600713 

.90256619 

.99816178 

.06021992 

.00253627 

.99818323 

.07913226 

.00269261 

.99821310 

.100B9215 

.00263711 

.99825239 

.12568763 

.00236613 

.99830377 

.15316703 

.00227878 

.99836639 

.18693862 

.00217699 

.99866D3C 

.21826939 

.00205556 

.99852663 

.29696987 

.00272972 

.99806312 

.29799666 

.0026823C 

.99822069 

.36316575 

.00226928 

.99838753 

.39297572 

.0C2O3275 

.99856276 

.66739136 

.00183322 

.99868580 

.50673795 

.0C165001 

.99881715 

.57160631 

.00168163 

.99S9380C 

.66182866 

.0C132598 

.99905008 

.71850562 

.00117782 

.99915566 

.80199366 

.00103586 

.99925761 

.89292936 

.00C89679 

.99935856 

.99201912 

.OOC76998 

.99966236 

1.10999107 

.OOC597Sr 

.99957165 

1.21807223 

.00026902 

.9998C715 

1.36702736 

.00C23C89 

.99983668 

1.68817799 

.00002735 

.99996025 


SHOCK WAVE EXTENDS OUTSIDE CONTOUR 

PRINTOUT OF SHOCK LOSSES ARE NOT AVAILABLE FOR REST OF SHOCK 


DRAS COEFFICIENT OUTPUT 


CALCULATION OF DRAG COEFFICIENT BY HOHENTUH INTEGRAL HETHQD 


BOUNDARIES OF CONTOUR USED 


CONTRIBUTION TO CO 


UPSTREAM 
DOWNSTREAM 
TOP 

BDTTDN 
BODY AFT OF 


-1.17C661 
.727663 
l.ABeiTB 
-1.A68178 
,727663 


COUP 

COOOHH 

COTOP 

CDBJT 

COBOOY 


TOTAL CONTRIBUTIONS AROUND CONTOUR 


O.OOOOOO 

..'.17606 

.002620 

.C0369B 

.013522 

.K3626S 


THERE ARE 1 SHOCKS INSIDE CONTOUR. TOTAL COWAVE - .503BB2 

NOTE - ONE OR MORE SHOCKS EXTEND OUTSIDE OF CONTOUR 
COWAVE DOES NOT EQUAL TOTAL WAVE DRAG 


DRAG CALCULATED FROM HOHENTUH INTEGRAL CD 


.033127 


20.11 SECONDS. 


(b) Output. 
Plgur* 4-8.- Concluded 


TINE TO RON CASE WAS 


SAMPLE CASE 6 - SnPERSCHZC-HACAOOOe AIRFOIL-POROOS TOtlBBL tIALL SZMDLATIOH 
$ZNP 

BCTYPE-5, Pat-0.25, MAXZT>1000, AHESH-.TRUE. , ALPEEA-2.0, BHACB-l.I, 
H-2.0, DELTA-0.06, BCPOIL-1, 

$EHD 


(a) Input. 


Sample case 6 - supersonic - nacaooo6 airfoil - porous tunnel wall simulation 


INPUT parameters 

**************** 


EHACH • l.IUOOO 

POR 

• .25000 

IMIN 


i BC 

TYPE • 5 

AMESH ■ T 


delta - .C6C0L CLSET 

- u.AlOOO 

INAXI 


31 SC 

FOIL • 1 

PHYj ■ T 


ALPHA • 2«C(0C0 

EPS 

• .20000 

JMIN 


1 PSTART - 1 

PSAVE • F 


AK • O.CCCOO RIGF 

• 0.00000 

JNAXI 


64 PRTFLO • 1 

rutta • r 


GAM • 1.40000 WCIRC 

• l.OCOOO 

MAXIT 


iOOJ IPRTER • iC 

FCR ■ T 


F « O.OOCOO CVERGE 

- .00001 

NU 


100 SIHOEF - 3 



H • Z.COU'C DVLRGE 

■ 10. S 

NL 


75 

ICUT • 2 



HE • 1.8Ca1.90.1.VS 









XIN 

-4. 826958 -1.472160 


-1.170661 

-.972966 


-.8i':93S7 

-.653469 

-.479854 


-.178882 -.114702 


-.075551 

-.050198 


-.032930 

-.020518 

-.O110o3 


.0C3024 .coaau3 


.014240 

.319563 


.025961 

.030961 

.0376L4 

• li 

.054966 .067013 


.032363 

.131517 


.124201 

.149372 

.175836 


.229179 .255353 


.281029 

.306213 


.330950 

.355299 

.374323 


.426629 .450015 


.473280 

.49640:. 


.519582 

.542669 

.565749 

• 5asao7 

.611681 .634971 


.633064 

.631229 


.704417 

.727563 

.75.-9Be 

• 77*tt:B 

.797988 .821742 


.845736 

.370039 


.394736 

.919931 

.945757 

• 77 

1.000000 1.028399 


1.059441 

1.092L35 


1.127723 

1.16735L 

1.212946 


1.341184 1.456833 

4.890373 


1.671514 

1.876313 


2. 042561 

2.2C9C55 

2.406774 

2.7E2V5V 

YIN 

-l.OOOOOC -.‘906455 


-.821465 

-.744089 


-.073514 

-.609036 

-• 55, 346 

-.^96..av- 

-.446463 -.400997 


-.359253 

-.320914 


-.285732 

-.253369 

-.223696 

- a X Vo-i dd 

-.171573 -.148797 


-.128025 

-.109135 


-.092C19 

-.076584 

-.U02744 

w3i'-t26 

-.039566 -.C301U8 


-..'22004 

-.015212 


-..09701 

-.005441 

-. 002-113 

— • u 0 J w' J 

.000603 .002413 


.0v5441 

.009701 


.51 5212 

.02201.4 


»ui93C/b 

.050426 .062744 


.076584 

.092019 


.109135 

.128025 

.148797 

.17*j73 

.196488 .223696 


.253369 

.285702 


, 32C914 

.359253 

.4<v997 

« ^*ttho3 

.496010 .550046 


.609036 

.673514 


.744089 

.820485 

.9^6455 

ia . 


intermediate output for coarse mesh 


WE 

• 1.8000 

EPS 

• 

.2C00 

MAXIT FOR 

THIS 

M=SH « 

TERATIDN 

CL 

CM 

lEKR 

JERR 

ERROR 

IRL 

JRL 

ID 

«24718 

-.04579 

21 

16 

.9428E-01 

5 

e 

20 

.22 445 

-.04678 

Zi 

8 

.13S3E+QC 

19 

8 

30 

.21628 

-.04569 

5 

9 

.59305-02 

5 

8 

40 

.21568 

-.14564 

5 

9 

. 326BE-02 

5 

a 

so 

.21551 

-.84568 

5 

9 

.18J8E-32 

5 

8 

60 

.21546 

-.04591 

5 

8 

.1007E-D2 

5 

d 

70 

.21546 

-.04594 

5 

8 

.5620E-03 

5 

8 

60 

.21547 

-.C4595 

5 

6 

.3133E-53 

5 

a 

90 

.21548 

-.04596 

5 

6 

.1747E-03 

5 

a 

lOO 

.21548 

-.14597 

5 

8 

,9745E-04 

5 

a 

110 

.21548 

-.C4597 

5 

e 

.5436E-04 

5 

9 

120 

.21548 

-.04597 

5 

8 

.3032E-94 

5 

8 

130 

.21549 

-.04597 

5 

8 

.1692E-04 

5 

a 

140 

.21549 

-.04597 

5 

a 

.9436E-05 

5 

3 


3IGRL 

ERCIRC 

ICPU 

CPtRRU 

ICPL 

CPtRRL 

il692E*C3 

.26;it-Sl 

1 3 

• XbSVE + atL 

^7 

.i494£ + >i 

,24092+93 

.75395-01 

7 

■ 

b 

.6660E-J1 

,4444E+tl2 

.4663E-C 2 

*7 

♦ 27i9 = -..: 

a 7 

. 3673E-;1 

,2445E + C2 

.14346-03 

3 

• 7iV^E-v 2 

7 

.9736t->2 

.13515 + 02 

.52B8E-04 

6 

.^3^rlE-32 

6 

.5392E-J2 

7522E+D1 

.4S93E-J5 

b 

• 2biic-v2 

6 

.2688L-U2 

i4195t + 9l 

.3777E-05 

6 


b 

.if93E-J2 

,2338£+.'il 

.288tE-E 5 

6 

•3i79c-03 

6 

.3B26t-03 

,1304E+01 

•1664E-C5 

D 


6 

• 4895t-.(3 

.7271E+00 

.9199E-06 


.23/OC-03 

6 

. 2726c.— 

,4056£+t0 

.5f72E-i>6 

d 

• i<t39t-u3 

b 

,±519c-03 

.2262E + 00 

.28t6£-C'6 

0 

.6.029c->^ 

6 

.aA73L-J4 

.i262E+0n 

.1557E-06 

u 


b 

.472eE-04 

,7U4DE-ai 

.B662E-07 

b 


0 

. 2 6 3 6 E —0 4 


solution converged ♦♦♦**♦ 


Figure 4-9.- Sample teat caae 6 - auperaonic, perforated/porous 
wall aimulabion (aLLreviated output) ; KACA 0006 alrZoil, 

4 - 0.06, a - 2°, - 1.1, H - 2. 


«0 




intermediate output for medium mesh 


WE 

• 1.9000 Ef>S 

• 

.2000 

rUXIT FOR 

THIS 

nesH ■ 

5C0 






ITERikTION 

CL 

CH 

lERR 

JERR 

ERROR 

IRL 

JRL 

BIGRl 

ERCIRC 

ICPU 

CPERRU 

ICPL 

CPERRL 

10 

.21231 

-.04389 

41 

16 

.7013E-02 

10 

4 

.54566+02 

.52796-03 

9 


9 

.11 836 + ai 

20 

.21428 

-.C4363 

9 

1 

.2S38E-02 

9 

16 

,581!:E+02 

.57146-03 

9 

• >i99£-:;2 

lU 

.iu30E-Jl 

30 

.21537 

-.04366 

a 

4 

.1432E-02 

9 

16 

,6361E+C2 

,28016-03 

iJr 

•2j65E-j2 

10 

.42206-02 

40 

.21586 

-.04368 

9 

14 

.1207E-02 

9 

16 

.5724E+02 

.12196-83 

it 

• i96,^E-:2 

9 

. o8.7c— o3 

$0 

.21605 

-.04372 

9 

17 

.1051E-02 

9 

16 

.49006+02 

.46496-54 

12 

•i275E-D2 

11 

,lC60t-02 

60 

.21613 

-.04374 

9 

17 

.9195E-03 

9 

16 

.4361E+02 

.19416-84 

li 

• 63 J3E— '3 

^1 

.l»,46-.i2 

TO 

.21616 

-.04376 

10 

17 

.8O19E-03 

9 

16 

.3799E+02 

.10366-04 

13 

• 59'JJ6-03 

11 

•9tl36-J3 

80 

.21619 

-.04378 

13 

17 

•6966E-33 

9 

16 

.32986+32 

.67256-115 

13 

•5929E-03 

11 

.87776-03 

00 

.21620 

-.04379 

10 

17 

.6034E-O3 

9 

16 

.28566+02 

.5)SiE-j5 

t i 

.-i»:37c-L.3 

tX 

.782Jt-j3 

100 

.21621 

-.04381 

10 

17 

.S220E-03 

9 

16 

,24706+02 

.35476-36 

13 

33c:-33 

11 

.68676-03 

110 

.21622 

-.04382 

10 

17 

.4537E-03 

9 

16 

.2132E+>:<2 

.2503E-C5 

t3 

•3397E-03 

il 

. oO 196— 03 

120 

.21623 

-.04383 

10 

17 

.363SE-03 

9 

16 

•18376+02 

.1915C-05 

13 


11 

.527CE-03 

130 

.21623 

-.C4384 

10 

17 

.3345E-03 

9 

16 

.15826+02 

.1538E-05 



1 1 

.45336-V3 

140 

.21624 

-.04384 

13 

17 

.287BE-03 

9 

16 

.13606+02 

.1267E-a5 

13 

• 2il3c“i;3 

11 

.89716-03 

150 

.21624 

-.C4385 

10 

17 

•2474E-03 

9 

lo 

.11696+02 

.10676-05 

13 

• ixblE-. 3 

• 1 

.84336-03 

160 

.21624 

-.C4386 

10 

17 

.2125E-33 

9 

16 

.10046+02 

.88676-06 

li 

• 1 5 o7 c“03 

±1 

.29636-03 

170 

.21624 

-.04386 

10 

17 

.1825E-C3 

9 

16 

.86216+31 

.77756-06 

Li 

•Io0^t-C3 

il 

.25526-03 

180 

.21625 

-.04386 

10 

17 

.15676-33 

9 

16 

.74016+01 

.61816-36 

*3 

.137/C-J3 

11 

.2l9o6-J3 

190 

.21625 

-.04387 

10 

17 

.13446-03 

9 

16 

.63516+01 

.78086-06 

13 

• 1169^-03 

11 

.18896-03 

ZOO 

.2162 5 

-.04387 

10 

17 

.11536-03 

9 

10 

.5*476+01 

.69446-30 

^ 3 


il 

.16236-03 

zie 

.21625 

-.14387 

10 

17 

.98386-04 

9 

16 

.46716+01 

.63286-06 

13 

.Bii2c- 

-.1 

.13936-03 

220 

.21625 

-.( 4386 

13 

17 

•8477E-34 

9 

16 

.40046+01 

.51866-06 

13 

• 7j35c-.^ 

^ X 

.119ot-j3 

230 

.21626 

-.04388 

13 

17 

.7266E-J4 

9 

16 

.34326+01 

.4446t-06 

i.3 

♦ bRdic--** 

11 

.iC 276-03 

240 

.21626 

-.04386 

10 

17 

.62276-04 

9 

16 

.29416+01 

.3806c-:o 

13 



• 86 >86 — >4 

250 

.21626 

-.( 4386 

13 

17 

.53366-54 

9 

16 

.Z52r^+01 

.32566-06 

13 

• <1 7ooc-.*’^> 

il 

. 7:556-04 

260 

.21626 

-.04386 

13 

17 

.4571E-34 

9 

li> 

.21546+31 

.Z7666-'.6 

13 

i <» ) 

11 

.547t)L-J4 

270 

.2162 6 

-.04366 

10 

17 

.39166-04 

9 

16 

.18496 + 01 

.23836-16 

i3 

• 3 

ll 

.55541-04 

280 

.21626 

-.0 4309 

10 

17 

.33556-04 

9 

16 

, 15646+01 

.2J396-J6 

13 


il 

.+7o0L-04 

290 

. 21626 

-.04369 

10 

17 

.28736-04 

9 

16 

.i.3576+Cl 

.17446-36 

li 

.23 70c-U^ 

ll 

. 40796-0.4 

300 

.21626 

-.C4369 

10 

17 

.24516-04 

9 

16 

.11626+31 

.14936-:6 

1 i 

♦22-21- i 

^ J. 

. 349jL-j4 

310 

.21626 

-.04369 

13 

17 

.21086-04 

9 

16 

.99536+00 

.12776-06 

13 

.138jE-. 4 

XX 

. 2593L-,4 

320 

.21626 

-.04389 

1 > 

17 

.1BjS6-04 

9 

16 

.85236+00 

. 10936-06 

13 

•40x3 

Xi 

. 3565i;-j4 

330 

.21626 

-.04389 

10 

17 

.15466-04 

9 

16 

. 72996+no 

.93546-37 

13 

• 1 3 6 ^ c— , n 

^ i 

.2.4/6-. 4 

340 

.21626 

*.t 4389 

in 

17 

.13146-04 

9 

16 

.625 ,’E + OO 

.800C6-07 

13 

« lie 

i: 

. i.6b2^-j4 

3S0 

.21626 

-.04369 

10 

17 

.1333E-C4 

9 

16 

.53 526+.'0 

.6852C-1.7 

13 

.1 

11 

.16121.-04 

360 

.21626 

-.04389 

10 

17 

.97056-05 

9 

le 

. 45836+00 

.58656-17 

1 s 

• 639 jE- 'b 

.1 

• iia >E-j4 


SOLUTlUrt CONVERGED *¥**** 


INTERrtiDIATE OUTPUT FOR FINE HfcSH 


WE 

• 1.95D0 

1 EPS 

- 

>2000 

MAXJT for 

THIS 

MESH ■ 

IL'OO 





TERATIQN 

C6 

CM 

I6RR 

JERK 

ERROR 

IR6 

JRL 

810*6 

ERCIRC 

ICf» J 


ICPL 

lU 

.21464 

-.6 44C6 

9 

33 

.37486-02 

17 

J2 

.^4636+03 


1 7 

• -xiic+.'x 

.7 

20 

.21513 

-.14427 

17 

17 

.2078[-12 

17 

iZ 

,49216+03 

• l2b«.£-03 

22 


2J 

30 

.21533 

- .04431 

19 

12 

. 18936-. 2 

+ 7 

32 

.4637E + <,3 


23 

• l) 3^ 0 t“G ^ 

CL* 

40 

.21544 

-.C4429 

18 

37 

.17156-02 

17 

32 

.44616+03 

• 3<f81w-04 

^3 


21 

50 

.21551 

-.C4426 

18 

35 

. Ib516-:>Z 

17 

32 

.42936+ <8 


31 

• 7<871t-Ui 

23 

60 

.21556 

-.04423 

17 

35 

. 15746-02 

17 

32. 

.4&98C + .13 


27 


2 2- 

70 

.21560 

-.C4421 

17 

36 

.14976-02 

17 

32 
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FIH*L OUTPUT • 


****************** 

PRIHTOUT IN PHYSICAL VARIABLES. 

DEFINITION OF SIMILARITY PARAMETERS BY KRUPP 
BOUNDARY CONOITIDN FOR POROUS WALL 
DIFFERENCE EQUATIONS ARE FULLY CONSERVATIVE. 

KUTTA CONDITION IS ENFORCED. 
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DELTA > .0600000 

ALPHA • 2.DOCCOOO 

K ■ -1.ZAS6397 

PARAMETERS USED TO TRANSFORM VARIABLES 
TO TRANSONIC SCALING 
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CMFACT ■ 
CLFACT • 
YFACT • 
VFACT - 


.1626687 

.0065613 

<1626667 

.1626667 

2.6356913 

3.6377667 


Figure 4-9.- Continued 


S3 



FINAL OUTPUT FOR FINE NESH 


FORCE COEFFICIENTS* PRESSURE COEFFICIENT* AND MACH NUMBER 
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Y-SRID 

VALUES Y(J) 

J« 1 TO 

64- 





-2.000000 

-1.812909 

1.642933 

-1.488178 

-1.347027 

-1.218072 

-1.100091 

-.992019 

-.892925 

-.801993 

-.718505 

-.641829 

-.571404 

-.506738 

-.447391 

-.392976 

-.343146 

-.297595 

-.256059 

-.218269 

-.184038 

-.153167 

-.125487 

-.100852 

-.079132 

-.060216 

-.044007 

-.030425 

-.019401 

-.910882 

-.L«4827 

-.5l>12tj5 

.001205 

.004827 

.010882 

.019401 

.030425 

.044007 

.C6C216 

.i;79l32 

.100852 

.125487 

.153167 

.184038 

.218269 

.256050 

.297595 

.343146 

.392976 

.447391 

.536733 

.571494 

.641829 

.718505 

. B01993 

.892923 

.99 2019 

1.100091 

1.218072 

1.347027 

1.488178 

1.642930 

1.B129U9 

2.bCli)039 


SONIC LINE OUTPUT 

*^*^^****^t ****** 


SONIC LINE coordinates 
Y X-SONIC 


z.ooooc 

-.33996 

.57889 

1.81291 

-.38427 

.52907 

1.64293 

-.42050 

.48093 

1.48818 

-.4 5417 

.43681 

1.34703 

-.48533 

.39794 

1.21807 

-.50724 

.36341 

1.10009 

-.52586 

.33294 

.99202 

-.54224 

•30665 

.89293 

-.55682 

.28327 

.80199 

-.56980 

.26169 

.71851 

-.58131 

.24204 

.64183 

-.59143 

.22341 

.57140 

-.6 0026 

.20628 

.50674 

-.60789 

.19055 

.44739 

-.61441 

.17532 

.39298 

-.61993 

.16192 

.34315 

-.62455 

.14836 

.29759 

-.62839 

.13645 

.25605 

-.63155 

.12429 

.21827 

-.63411 

.11383 

.18404 

-.63617 

.10299 

.15317 

-.63781 

.09339 

.12549 

-.63910 

.06355 

.10085 

-.64010 

.07490 

.07913 

-.64086 

.06589 

•06022 

-.64144 

.05780 

*04401 

-.64187 

.04983 

.03042 

-.64218 

.04207 

.0194C 

-.64240 

.03470 

.01088 

-.64255 

.02781 

.00483 

-.64265 

.02163 

.00121 

-.64270 

.01685 

BOOr LOCATION 


-.00121 

-.64274 

.1L54S 

-.00483 

-.64279 

.10899 

-.01088 

-.64286 

.11434 

-.C194C 

-.64295 

.12C85 

-.03042 

-.64304 

.12907 

-.04401 

-.54312 

.13853 

-.06022 

-.64315 

.14789 

-.07913 

-.64310 

.15936 

-.10085 

-.64295 

.17C58 

-.12549 

-.64265 

.16276 

-.15317 

-.64214 

.19541 

-. 18404 

-.64137 

.20656 

-.21827 

-.54026 

.22239 

-.25605 

-.63873 

.23687 

-.297 59 

-.63671 

.25172 

-.34315 

-.53408 

.26775 

-.39298 

-.63073 

.28396 

-.44739 

-.62656 

.30142 

-.50674 

-.62142 

.32005 

-.57140 

-.61521 

.33958 

-.64183 

-.60780 

.36022 

-.71851 

-.5 9906 

.38225 

-.80199 

-.5 88 89 

.40608 

-.89293 

-.57719 

.43225 

-.99202 

-.56385 

.46132 

-1.10009 

-.54874 

.49293 

-1.21807 

-.53167 

.52827 

-1.34703 

-.51218 

.56770 

-1.48816 

-.48915 

.61174 

-1.64293 

-.45651 

.65995 

-1.61291 

-.41901 

.71061 

-z.oooot 

-.37572 

.76136 
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SHOCK HAVE DK*6 AND TOTAL PRESSURE PROFILEOUTPUT 

********************************************^** 4 * 


INVISCIO HAKE PROFILES FOR INDIVIDUAL SHOCK HAVES HITHIN HONENTUN CONTOUR 


SHOCK 1 
.HAVE DRAG FOR 

THIS SHOCK- 

.006931 

Y 

CD(YI 

PO/PQINF 

-l.ai290990 

•00079977 

.99996699 

-1.69293038 

.00077699 

.99999339 

-1.98917799 

.00109293 

.99925270 

-1.39702736 

.00120199 

.99913836 

-1.21B07223 

.00139291 

.99903765 

-1.10009107 

•00197099 

.99899551 

-.99201912 

.00159390 

.99885773 

-.09292530 

.00171916 

.99877115 

-.80199399 

.00183630 

.99866360 

-.71890592 

.00196176 

.99859365 

-.69182869 

.0020915 5 

.99850061 

-.57190931 

.00222580 

.99890937 

" -.506/3/95 i002363B7 ^^99835539 

-.99739136 

.00250936 

.99820968 

-.39297572 

.002&952T 

.99810371 

-.39319575 

.00278373 

.99800990 

-.29759966 

.00291688 

.99790895 

-.29609987 

.00309137 

.99781970 

-.21826935 

.00315908 

.99773891 

-.1B903B92 

.00325233 

.99766897 

-.19316703 

.00333929 

.99750971 

-,12598793 

.00339920 

.99756319 

-.10089219 

.00399796 

.99752858 

-.07913226 

.00396062 

.99750982 

-.06021592 

.00350102 

.99799019 

-.09900713 

.00351199 

.99798268 

-.03092969 

.00351995 

.99798020 

-.01990111 

.00351907 

.99798083 

-.01086238 

.0035111C 

.99798297 

-.00982689 

.00350777 

.99798535 

-.00120527 

.00350529 

.99793713 

.00120527 

.00350395 

.99798895 

.00982689 

.00350036 

.99799055 

.01088238 

.00399997 

.99799988 

.0199C111 

.00398951 

.99750202 

.03092969 

.00396867 

.99751329 

.09900713 

.00399559 

.99752997 

.06021592 

.00391232 

.99755377 

.07913226 

.00336708 

.99750621 

.10089215 

.00330802 

.99762855 

.12598793 

.00323902 

.99766160 

.19316703 

•00319987 

.99779551 

.18903892 

.00309139 

.99731969 

.21826939 

.00292531 

.99790290 

.29609987 

.00279911 

.99799338 

.29759966 

.00266567 

.99808903 

.39319575 

.00252802 

.99818772 

.39297572 

.00238897 

.99828739 

.99739136 

.00225099 

,99838631 

.50673795 

.00211595 

.99898312 

.57190931 

.00198513 

.99857690 

.69182669 

.90185909 

.99866726 

.718SC592 

.00173771 

.99875927 

.80199399 

.00162012 

.99883857 

.89292538 

•00150965 

.99892135 

.99201912 

.00138875 

.99900993 

1.10009107 

.00126890 

.99909035 

1.21807223 

.00119057 

.99918235 

1. 39702736 

.00099 855 

.99928916 

1.98817799 

.90079006 

.99996995 

1.69293038 

,00072957 

.99997735 

1.81Z9C990 

.00067902 

.99951322 


ISHDCK HAVE EXTENDS OUTSIDE CONTOUR 

(PRINTOUT OF SHOCK LOSSES ARE NOT AVAILABLE FOR REST OF SHOCK 


DRAG COEFFICIENT OUTPUT 

***•*«*« ***pp******** 4* 


CALCULATION OF DRAG COEFFICIENT BY HONENTUN INTEGRAL NETHOD 


BOUNDARIES OF CONTOUR USED 


CONTRIBUTION TO CD 


UPSTREAN 
DOHNSTREAN 
TOP 

BOTTOH 
BODY AFT OF 


-1.1TC66I 
.72 7663 
1.612909 
-1.B129C9 
,727663 


COUP 

CDDOHN 

CDTOP 

CDBOT 

CDBOOY 


TOTAL CONTRIBUTIONS AROUND CONTOUR 


0.003030 

.039068 

.005569 

.007056 

.007356 

.029098 


THERE ARE 1 SHOCKS INSIDE CONTOUR. TOTAL CDHAVE • .006937 

NOTE ' ONE OR NORE SHOCKS EXTEND OUTSIDE OF CONTOUR 
CDHAVE DOES NOT EQUAL TOTAL HAVE DRAG 

DRAG CALCULATED FROH HONENTUN INTEGRAL. CD • .035985 


TINE TO PUN CASE HAS 62.07 SECONDS. 
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o Hodograph theory (22) 
Exact- shock free 

Relaxation solutions 

Full potential (23) 

Transonic small 

disturbance (3) 


x/c 


Figure 4-10.- Comparison of hodograph and relaxation solutions for 
the surface pressure distribution on a NLR quasi-elliptical 
airfoil with 5 = 0.1212, a = 1.32° and = 0.7557. 



Hodograph theory ( 24) 

Exact- shock free 

Relaxation solutions 

Full potential (23) 

Transonic small 

disturbance (3) 


0 


Figure 4-11.- Comparison of hodogra 
surface pressure distribution on 

a = 0. 12°, a 


and relaxation solutions for the 
Korn airfoil with 6 == 0.115, 

M = 0.75. 
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o Full inviscid (25) 

Transonic small 

disturbance (3) 


Figure 4-12.- Comparison of relaxation solutions for 

the surface pressure distribution of a NACA 0012 

airfoil at a = 2°, M = 0.630. 

’ 00 



Time dependent 
• Exact isentropic (27) 
(conservative) 

Relaxation solutions 
o Exact isentropic (26) 
(nonconservative ) 

Transonic small- 

disturbance 
( conservative ) 


Figure 4-13.- Comparison of conservative time-dependent and nonconservative 

relaxation solutions of exact isentropic equation and the 

small-disturbance conservative solution for the surface 

pressure distribution on an NACA 64A410 airfoil 

at M = 0.735 and a = 1°. 

00 
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-4.0 



C * 

P 


Small disturbance 
Relaxation solutions 


Fully conservative 
(FCR) Ax = 0,02 


Fully conservative 

(FCR) Ax = 0.001 


Not fully conservative 

(NCR) Ax = 0.02 

Not fully conservative 

(NCR) Ax = 0.005 


Figure 4-14.- Comparison of FCR and NCR solutions for the 
similarity surface pressure distribution on a parabolic 

arc airfoil with 5 = 0.06 and M = 0.872, (19) 

00 



x/c 


Relaxation 

Small disturbance FCR 

Small disturbance NCR 

Time dependent 
Exact isen tropic (22) 


Figure 4-15.- Comparison of various solutions for the detached 

bow shock wave location for a parabolic arc airfoil with 

6 = 0.06 and M = 1.15. (19) 

00 








— 1. Oi— 



o Experiment: (30) 
Relaxation solutions 

Free air 

Ideal slotted wall 


Figure 4-17.- Comparison of small disturbance FCR solutions with data 
for the surface pressure on a NACA 0012 at a = 0° and 

M = 0.8. (19) 



0 « NAS A- Ames 2X2 Tunnel (1) 

= 0.281 = -0.0024 

Free air theory 


Cl = 0.713 Cj3 = 0.0287 

= - 0. 100 


Ideal 

Cl = 
Cm 


-Ideal 

Cl = 

Ctn ~ 


slotted tunnel theory 
0.530 Cj3 = 0.0138 

-0. 033 

slotted txinnel theory 
0.281 (Fixed) 

0.0048 C^ = 0.026 


Figure 4-18.- Comparison of free-air and wind-tunnel small disturbance 
FCR solutions for the surface pressure distribution on a 
NACA 64A010 airfoil at a = 2.0° and M = 0.802. 
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5. 


PROGRAMMER'S MANUAL 


This section of the operational manual provides detailed information 
concerning the programming structure of the code, and is intended primarily 
to assist those users interested in modifying or extending the program. 
Included in this section are a dictionary of all subroutine variables that 
appear in common blocks in the program and a detailed description of the 
individual subroutines. These should provide all the information necessary 
to alter the code in a rapid and error-free fashion. 


5.1 Dictionary of Subroutine Variables in Common 

This section provides a dictionary of all subroutine variables which 
appear in common blocks in the program. The dictionary is arranged 
serially according to the named common block number rather than alphabeti- 
cally in order to provide a more rapid access to the information. 


VARIABLE 


COMMON BLOCK DESCRIPTION AND COMMENTS 

COMMON 


P(100,101) 

X(IOO) 

Y(IOO) 

IDOWN 

ILE 

IMAX 

IMIN 


array containing the small-disturbance velocity 
potential 0 used in current calculation 

array containing the x-location of mesh points 
used in current calculation 

array containing the y-location of mesh points 
used in current calculation 

COM 1 


downstream limit of I index for solution of 
difference equations; equal to IMAX - 1 for 
subsonic free streams, and IMAX otherwise 

value of I index associated with the mesh 
point at the leading edge (x = Q.) or mesh 
point on the body closest to leading edge 

number of x-mesh points in current calculation 

value of I index designating the x-mesh 
point where the calculation is to start; 
user-option input, default value equal to 1 


1 m 



VARIABLE 


COMMON BLOCK 


DESCRIPTION AND COMMENTS 


ITE 


lUP 


JBOT 


JLOW 

JMAX 

JMIN 


JTOP 


JUP 


AK 


ALPHA 

DUB 


GAMl 

RTK 


COM 1 (cont'd) 

value of I index associated with the mesh 
point at the trailing edge (x = 1.) or mesh 
point on body closest to trailing edge 

upstream limit of I index for solution of 
difference equations; equal to IMIN + 1 for 
subsonic free streams and IMIN + 2 otherwise 

lower limit of J index for solution of finite- 
difference equations; equal to JMIN + 1 for 
free-air subsonic calculations, free- jet cal- 
culations, and porous tunnel wall calculations 
where the scaled porosity is greater than 1.5; 
equal to JMIN otherwise 

value of J index associated with the row of 
mesh points immediately below the body 

number of y-mesh points in current calculation 

value of J index designating the y-mesh point 
where the calculation is to start; user-option 
input, default value equal to 1 

upper limit of J index for solution of finite- 
difference equations; equal to JMAX - 1 for 
free-air subsonic calculations, free-jet cal- 
culations, and porous tunnel wall calculations 
where the scaled porosity is greater than 1.5; 
equal to JMAX otherwise 

value of J index associated with the row of 
mesh points immediately above the body 

COM 2 


transonic similarity parameter; equal to 
(1 - where m is equal to zero 

for CoTe scaling, 2/3 for Spreiter scaling, 
and 1/2 for Krupp scaling 

angle of attack; user-option input, default 
value equal to 0.12° 

strength of doublet characterizing far-field 
behavior; set equal to airfoil volume for 
nonlifting free-air flows; equal to volume 
+ (Y+l)/4j'J' 0^ dx dy otherwise 

equal to Y + 1 

equal to / |ak| 
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VARIABLE 


COMMON BLOCK 


DESCRIPTION AND COMMENTS 


COM 3 


ABORT (logical) 
ICUT 

IREF 

KSTEP 

XIN(IOO) 

YIN(IOO) 

AMESH (logical) 

XDIFF (100) 

YD IFF (100) 

CAMBER(IOO) 

FL(IOO) 

FU(IOO) 

FXL(IOO) 

FXU(IOO) 

IFOIL 


program control for terminating calculation if 
solution diverges 

control for mesh cut and refinement; equal to 
0, input mesh used to convergence; equal to 1, 
input mesh may be cut once; equa], to 2, input 
mesh may be cut twice; user-option input, 
default value equal to 2 

internal program control for mesh cutting 

internal program control for index increment for 
mesh cutting 

COM 4 


array of x-ordinates of user-supplied x-grid; 
set equal to XKRUPP if default x-grid chosen 

array of y-ordinates of user-supplied y-grid; 
set equal to YFREE or YTUN if default y-grid 
chosen 

control for use of analytical default mesh 
calculated by AYMESH; user-option input, 
default value is FALSE 

COM 5 


array of difference coefficients for determining 
equal to l./(X(I) - X(I-l)) 


array of difference coefficients for determining 
0y; equal to 1./{Y{J) -Y(J-l)) 


COM 6 


array of ordinates of airfoil camber-line 
distribution 

array of y-ordinates of airfoil lower surface 

array of y-ordinates of airfoil upper surface 

array of slopes (dF^/dx) of airfoil lower 
surface 

array of slopes (dF^/dx) of airfoil upper 
surface 

number of mesh points on airfoil; equal to 
ITE - ILE + 1 
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VARIABLE 


COMMON BLOCK 


DESCRIPTION AND COMMENTS 


THICK(IOO) 

VOL 

XFOIL(IOO) 

CJLOW 

CJLOWl 

CJUP 

CJUPl 

CVERGE 
D VERGE 
EPS 

IPRTER 

MAXIT 


COM 6 (con’t) 

array of ordinates of airfoil thickness 
distribution 

volume of airfoil/unit span 

array of x-ordinates of mesh points on airfoil 
COM 7 


difference coefficient for extrapolation 
formulas to obtain airfoil lower surface 
properties; equal to -Y (JLOW-1) / (Y (JLOW) 

- Y (JLOW-1) ) 

difference coefficient for extrapolation 
formulas to obtain airfoil lower surface 
properties; equal to -Y (JLOW) / (Y (JLOW) 

- Y (JLOW-1) ) 

difference coefficient for extrapolation 
formulas to obtain airfoil upper surface 
properties; equal to V ( JUP+1) / (Y ( JUP+1) 

- Y(JUP) ) 

difference coefficient for extrapolation 
formulas to obtain airfoil upper surface 
properties; equal to Y ( JUP) / (Y ( JUP+1) 

- Y(JUP) ) 


COM 8 


convergence criterion for maximum iteration 
error of 0; user-option input, default value 
equal to 0.00005 

divergence criterion for maximum iteration 
error 0; user-option input, default value 
equal to 10. 

coefficient of pseudo-time term At0xt/Ax in 
differential equation; value between 0. and 1. 
default value equal to 0. 

control for print frequency of y-line in mesh 
where error is largest; for example, 

IPRTER = 10 implies line will be printed 
every 10th iteration; user-option input, 
default value equal to 10 

control for maximum number of iteration cycles 
allowed on each mesh; user-option input, 
default value equal to 500 
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VARIABLE 


COMMON BLOCK 


DESCRIPTION j^ND COMMENTS 


COM 8 (cont'd) 


WE (3) 

relaxation factor at elliptic points on the 
coarse, medium, and fine mesh, respectively; 
user-option input, default values in order 
are 1.8, 1.9, and 1.95; if user-specified, all 
three values must be given 


COM 9 

BCFOIL (integer) 

control for airfoil geometry options; equal to 
1 for symmetric NACA four-digit (OOXX) series; 
equal to 2 for parabolic arc; equal to 3 for 
user-specified ordinates, program calculates 
ordinates and slopes at mesh points by cubic 
spline interpolation; equal to 4 for complete 
user-supplied description; user-option input, 
default value is 3 and program uses Korn 
airfoil ordinates 

NL 

number of ordinate points used to describe air- 
foil lower surface; default value (for Korn 
airfoil) is 75 

NU 

number of ordinate points used to describe air- 
foil upper surface; default value (for Korn 
airfoil) is 100 

RIGF 

Reigles rule nose correction factor for modifying 
airfoil slopes; user-option input, default value 
is 0,0 

XL (100) 

array of x-ordinates for airfoil lower surface; 
user-supplied if BCFOIL = 3, unless default 
(Korn) airfoil is used 

XU(IOO) 

array of x-ordinates for airfoil upper surface; 
user-supplied if BCFOIL = 3, unless default 
(Korn) airfoil is used 

YL (100) 

array of y-ordinates for airfoil lower surface; 
user-supplied if BCFOIL = 3, unless default 
(Korn) airfoil is used 

YU(IOO) 

array of y-ordinates for airfoil upper surface; 
user-supplied if BCFOIL = 3, unless default 
(Korn) airfoil is used 


COM 10 

GAM 

ratio of specific heats; user-option input, 
default value equal to 1.4 

JMXF 

number of y-mesh points for basic Krupp free- 
air grid; equal to 57 

JMXT 

number of y-mesh points for basic wind-tunnel 


grid; equal to 49 
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VARIABLE 


COMMON BLOCK 


DESCRIPTION AND COMMENTS 


XGRDIN 

XKRUPP(IOO) 
YFREE (100) 
YGRDIN 

YTUN (100) 

ALPHAO 


COM 10 (cont'd) 

control for input of x-grid; equal to TRUE 
if x-grid is user-specified; equal to FALSE 
if default x-grid (XKRUPP) is used; default 
value equal to FALSE 

array of x-ordinates for basic Krupp free-air 
grid 

array of y-ordinates for basic Krupp free-air 
grid 

control for input of y-grids; equal to TRUE 
if y-grid is user-speicif ied; equal to FALSE 
if either default y-grid (YFREE or YTUN) is 
used; default value equal to FALSE 

array of y-ordinates for basic wind-tunnel 
grid 

COM 11 


value of angle of attack (ALPHA) from previous 
calculation 


CLOLD 


value of lift coefficient (CL) from previous 
calculation 


DELTAO 


value of thickness ratio (DELTA) from previous 
calculation 


DUBO 

EMACHO 


value of far-field doublet strength (DUB) from 
previous calculation 

value of Mach niimber (EMACH) from previous 
calculation 


IMAXI number of x-mesh points; less than or equal 

to 100; user-option input, default value is 
77 for basic Krupp grid 

IMAXO number of x-mesh points (IMAX) used in previous 

calculation 


IMINO 


value of I index (IMIN) where previous 
calculation was initiated 


JMAXI number of y-mesh points; less than or equal to 

100; user-option input, default value is 57 
(JMXF) for basic Krupp free-air grid or 49 
(iIMXT) for basic wind-tunnel grid 
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VARIABLE 


COMMON BLOCK 


DESCRIPTION AND COMMENTS 


COM 11 (cont’d) 


JMAXO 

number of y-mesh points (JMAX) used in previous 
calculation 

JMINO 

value of J index (JMIN) where calculation was 
initiated 

PSAVE (logical) 

control for saving restart block of values on 
unit 3 ; equal to TRUE for final results of 
current calculation to be saved; user-option 
input, default value is FALSE 

PSTART (integer) 

control for initializing velocity potential 0 
array; equal to 1, 0 set to zero; equal to 2, 
0 read from tape unit 7; equal to 3, 0 used 
from previous case; user-option input, default 
value equal to 1 

TITLE (8) 

user-input alphanumeric array containing run 
title information 

TITLEO(8) 

alphanumeric array containing run title 
information from previous run 

VOLO 

value of airfoil volume (per unit span) from 
previous calculation 

XOLD(IOO) 

array of x-mesh ordinates from previous 
calculation 

YOLD(IOO) 

array of y-mesh ordinates from previous 
calculation 


COM 12 

F 

wind-tunnel slot parameter; user-option input, 
default value equal to 0 . 

H 

wind-tunnel half height to chord ratio; user- 
option input, default value equal to 0 . 

HALF PI 

equal to tt/2 

PI 

equal to tt 

RTKPOR 

equal to / jAKj / POR 

TWOPI 

equal to 2 tt 
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VARIABLE 


COMMON BLOCK 


DESCRIPTION AND COMMENTS 


COM 13 


CDFACT 

CLFACT 
CMFACT 
CPFACT 
CPS TAR 

CLSET 

FCR (logical) 

KUTTA (logical) 

WCIRC 

B 

BETAO 


transonic scale factor for drag coefficient; 
equal to where n equals 0 for 

Cole scaling, 2/3 for Spreiter scaling, and 
3/4 for Krupp scaling 

transonic scale factor for lift coefficient; 
equal to fi^/Sj^-n CDFACT) 

transonic scale factor for moment coefficient; 
equal to dV^M”^ (see CDFACT) 

transonic scale factor for pressure coefficient; 
equal to 6^/^M”^ (see CDFACT) 

critical pressure coefficient 
COM 14 


specified lift coefficient; used if Kutta 
condition is FALSE; user-option input, 
default value equal to 0. 

control for fully conservative differencing; 
equal to TRUE for fully conservative form; 
otherwise, difference equations not conser- 
vative at shock waves; user— option input, 
default value equal to TRUE 

control for Kutta condition specification; 
equal to TRUE for Kutta condition enforce- 
ment; equal to FALSE for lift-coefficient 
specification; user-option input, default 
value equal to TRUE 

relaxation factor for circulation; user-option 
input, default value equal to 1 . 

COM 15 


constant in subsonic far-field doublet solution 
for various wind-tunnel walls; equal to 0.5 
for solid wall; equal to 0. for free- jet, 
slotted, or perforated/porous walls 

constant in subsonic far-field vortex solution 
for various wind-tunnel walls; calculated by 
VROOTS for ideal slotted tunnel wall; equal 
to 7 t /2 for solid wall; equal to 0. for 
free jet; equal to tan“^ (RTK/POR) for ideal 
perforated/porous wall 
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VARIABLE 


COMMON BLOCK 


DESCRIPTION AND COMMENTS 


BETAl 
BETA 2 
PS 10 


PS II 
PS 12 

ALPHA 0 


ALPHA 1 
ALPHA 2 
JET (real) 


OMEGAO 


OMEGA 1 
OMEGA 2 
XSING 


CYYBLC 


COM 15 (cont'd) 
see BETAO 
see BETAO 

constant in subsonic far-field vortex solution 
for various wind-tunnel walls; calculated by 
VROOTS for ideal slotted tunnel wall; equal 
to 1. for solid wall, free- jet, and ideal 
perforated/porous wall 

see PSIO 

see PSIO 

COM 16 

constant in siibsonic far-field doublet solution 
for various wind-tunnel walls; calculated by 
DROOTS for ideal slotted tunnel wall; equal 
to tt for solid wall; equal to tt/2 for 
free-jet; equal to tt/2 - tan”^ (RTK/POR) for 
ideal perforated/porous wall 

see ALPHAO 

see ALPHAO 

constant in subsonic far-field vortex solution 
for various wind-tunnel walls; equal to 0. for 
solid and ideal perforated/porous wall; equal 
to 0.5 for free-jet and ideal slotted walls 

constant in subsonic far-field doiiblet solution 
for various wind-tunnel walls; calculated by 
DROOTS for ideal slotted tunnel wall; equal 
to 1. for solid wall, free-jet, and ideal 
perforated/porous walls 

see OMEGAO 

see OMEGAO 

x-location of vortex and doublet used to 
determine far-field behavior on outer 
boundaries; equal to 0.5 

COM 17 


special 0yy difference coefficient at airfoil 
lower surface; equal to -CYYBLU/ (Y ( JLOW) 

- Y(JLOW-l) ) 
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VARIABLE 


COMMON BLOCK 


DESCRIPTION AND COMMENTS 


CYYBLD 

CYYBLU 

CYYBUC 

CYYBUD 
CYYBUU 
FXLBC (100) 

FXUBC (100) 

I TEMPI 
I TEMP 2 

DC IRC 

ERROR 

11 

12 

lERROR 

JERROR 

OUTERR (logical) 
POLD(lOO,2) 


COM 17 (cont'd) 

special 0™ difference coefficient at airfoil 
lower surface; equal to -CYYBLC 

special <pyy difference coefficient at airfoil 
lower surface; equal to -2,/(Y(JLOW) + Y(JLOW-l)) 

special 0 yy difference coefficient at airfoil 
upper surface; equal to CYYBUD/ (Y (JUP+1) 

-* Y(JUP) ) 

special '^yy difference coefficient at airfoil 
upper suri^ce; equal to -2 ./ (Y ( JUP+1) + Y(JUP)) 

special 0yy difference coefficient at airfoil 
upper surface; equal to -CYYBUC 

array containing body-slope boundary condition 
on lower surface multiplied by mesh spacing 
constant CYYBLU 


array containing body-slope boundary condition 
on upper surface multiplied by mesh spacing 
constant CYYBUD 


dummy index 
dummy index 
COM 18 


iteration error in circulation; equal to 


A0 


n+i 

te 


A0 


n 

te 


absolute value of the maximum iteration error 

in 0; that is, 1 0^ . - 0^”^ I 

' Dji jjilmax 

dummy I index used to alternate storage in 
arrays POLD (J,I) and EMU (J,I) 

dummy I index used to alternate storage in 
arrays POLD (J,I) and EMU (J,I) 

value of I index where maximum iteration 
error in 0 occurs 

value of J index where maximiim iteration 
error in 0 occurs 

internal program control for printout of 
iteration count, CL, CM, CD, TERROR, JERROR, 
ERROR, and ERCIRC 

array used to store current and previous column 
of 0j^i 
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VARIABLE 


COMMON BLOCK 


DESCRIPTION AND COMMENTS 


VC (100) 
WI 

DIAG(IOO) 
RHS (100) 

SUB (100) 
SUP (100) 

XMID(IOO) 

YMID(IOO) 

CXC (100) 
CXL(IOO) 

CXR(IOO) 

CXXC (100) 


COM 18 (cont'd) 

array used to store current column of 2-(1 -m 5)/ 
(X^^^-X*^i); equal to Cl(I) - (CXL (I ) • POLD (IT, l2) 
+ CXC(I) -P(J,I) + CXR(I) .P(J,I+1) ) 

COM 19 

reciprocal of elliptic relaxation factor for 
current mesh 

array of diagonal elements of tridiagonal matrix 
equation for column solution of 0 

array for the right-hand side column vector of 
tridiagonal matrix equation for column solution 
of 0 

array of sub-diagonal elements of tridiagonal 
matrix equation for column solution of 0 

array of super-diagonal elements of tridiagonal 
matrix equation for column solution of 0 

COM 20 


array of x-mesh points obtained by deleting 
every other point in input array XIN starting 
with I = IMIN + 1 

array of y-mesh points obtained by deleting 
every other point in input array YIN starting 
with J == JMIN + 1 

COM 22 


centered 0 ^ difference coefficient devided by 
X(I+1) - X(I-l) for IMIN + 1 < I < IMAX - 1; 
equal to -CXL(I) - CXR(I) 

left-biased 0^ difference coefficient divided 
by X(I+1) - X(l-l) for IMIN + 1 < I < IMAX - 1; 
equal to -0 . 5* ( Y+1) / ( (X (I) - X (I-l) ) * (X (I+l) 

- X(I-l) ) ) 

right -biased 0 difference coefficient divided 
by X(I+1) - X(I-l) for IMIN + 1 < I < IMAX - 1; 
equal to 0 . 5* ( T+1) / ( (X ( I+l) - X ( I) ) * (X (I+l) 

- X(I-l))) 

centered 0^x difference coefficient multiplied 
by X(I+1) - X(I-l) for IMIN + 1 < I < IMAX - 1; 
equal to -CXXL(I) - CXXR(I) 
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VARIABLE 


COMMON BLOCK 


DESCRIPTION AND COMMENTS 


COM 22 (cont'd) 


CXXL(IOO) 

left -biased 0xx difference coefficient multi- 
plied by X(I+1) - X(I-l) for IMIN + 1 < I 
< IMAX - 1; equal to 2./(X(I) - X(I-l)) 

CXXR(IOO) 

right-biased 0^x difference coefficient multi 
plied by X(I+1) - X(I-l) for IMIN + 1 < I 
< IMAX - 1; equal to 2./(X(I+l) - X(I)) 

Cl (100) 

equal to AK/(X(I+1) - X(I-l)) 

COM 23 

CY^C (100) 

centered 0yy difference coefficient; equal to 
-CYYD(J) - CYYU(J) for JMIN + 1 < J < »JMAX - 1 

CYYD(IOO) 

down-biased 0yy difference coefficient; equal 
to 2./( (Y(J) - Y(J-l) )*(Y(J+1) -Y(J-2))) 

for JMIN + 1 < J < JMAX - 1 

CYYU(IOO) 

up-biased 0yy difference coefficient; equal 
to 2./((Y(5-+1) - Y(J) )*(Y(J+2) -Y(J-2))<) 
for JMIN + 1 < J < JMAX - 1 

IVAL 

index identifying the current column location; 
equal to i 

COM 24 

DBOT (100) 

array of siibsonic, far-field, unit-strength 
doxoblet values on bottom boundary 

DDOWN(IOO) 

array of subsonic, far-field, unit-strength 
doublet values on downstream boundary 

DTOP(IOO) 

array of subsonic, far-field, unit-strength 
doublet values on top boundary 

DUP(IOO) 

array of siibsonic, far-field, unit-strength 
doublet values on upstream boundary 

VBOT(IOO) 

array of subsonic, far-field, unit-strength 
vortex values on bottom boundary 

VDOWN(IOO) 

array of subsonic, far-field, unit-strength 
vortex values on downstream boundary 

VTOP(IOO) 

array of subsonic, far-field, unit-strength 
vortex values on top boundary 

VUP(IOO) 

array of siibsonic, far-field, unit-strength 
vortex values on upper boundairy 
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VARIABLE 


COMMON BLOCK 


DESCRIPTION AND COMMENTS 


COM 25 


CPL(IOO) 

CPU(IOO) 


PJUMP(IOO) 


CL 

DELRT2 

DELTA 

EMACH 

EMROOT 

PHYS (logical) 


PRTFLO (integer) 


SIMDEF (integer) 


SONVEL 

VFACT 


array of pressure coefficient values on 
y = 0 lines from IMIN < I < IMAX 

array of pressure coefficient values on 
y = 0+ line from IMIN < I < IMAX 

COM 26 

array of values for the jump in potential across 
the wake from ITE ^ I < IMAX; equal to 
CIRCTE + (X(I) - 1.) * (CIRCFF-CIRCTE)/X(IMAX1 

- 1 .) 


COM 27 

lift coefficient 
equal to (6)^/® 

airfoil thickness ratio 6; user-option input, 
default value equal to 0.115 

free-stream Mach number M ; user-option input, 
default value equal to 0.75 

equal to (M^) 

control for transonic scaling used for input/ 
output; equal to TRUE for physically scaled 
values and FALSE for transonically scaled 
values; user-option input, default value equal 
to TRUE 

control for print option of final flow field; 
equal to 1 for no flow field printout, equal 
to 2 for entire flow field printout, equal 
to 3 for printout of 3J lines around maximum 
error; user-option input, default value equal 
to 1 

control for transonic similarity scaling 
definition; equal to 1 for Cole scaling, 
equal to 2 for Spreiter scaling, equal to 
3 for Krupp scaling, equal to 4 for user- 
supplied scaling; user-option input, default 
value equal to 3 

perturbation velocity at sonic point; equal to 
AK/GAMl 

transonic scale factor for flow angle deflection; 
equal to 6*(180°/7 t) 
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VARIABLE 


COMMON BLOCK 


DESCRIPTION AND COMMENTS 


COM 27 (cont'd) 

YFACT transonic scale factor for lateral coordinate; 

equal to where m equals 0 for^ 

Cole scaling, 2/3 for Spreiter scaling, and 
1/2 for Krupp scaling 

COM 28 


BCTYPE (integer) 


CIRCFF 

CIRCTE 

FHINV 

POR 


BIGRL 

IRL 

JRL 

THETA (100, 100) 


A(200) 


input control for type of flow to be computed; 
equal to 1 for free air, 2 for solid wall 
tunnels, 3 for free jet, 4 for ideal slotted- 
wall tunnel, and 5 for ideal perforated/porous 
wall tunnel; user-option input, default value 
equal to 1 

circulation in far field 

jump in potential at the trailing edge, A0 ^q 
equal to l./(F*H) 

wall porosity factor; user-option input, default 
value equal to 0. 

COM 30 


common block COM 30 is a scratch common used 
to shorten storage requirements; all variables 
appearing in COM 30 are used internally only 
within each subroutine and not passed for use 
to other subroutines 

COM 32 


maximiom residual of finite difference equation; 

equal to (R . . ) 

3,1 max 

value of I index where maximum residual occurs 
value of J index where maximum residual occurs 
COM 33 

array containing values of the angle used to 
update the potential for subsonic free-air flows 
by spreading the circulation rapidly through the 
flow field; calculated by ANGLE; equal to 
1/2 tt tan“ ^ ^^/l^'y/ ( X . -XS ING ) ) 


SPLN 


coefficient array for cubic-fit, continuous 
derivative interpolation formula for fitting 
tabulated airfoil ordinates 
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VARIABLE 


COMMON blcx:k 


DESCRIPTION AND COMMENTS 


B(200) 

DYl 

DY2 

DYP 

K1 

K2 

XP 

YP 


SPLN (cont'd) 

coefficient array for cubic-fit, continuous 
derivation interpolation formula for fitting 
tabulated airfoil ordinates 

slope of airfoil upper or lower surface at 
leading edge 

slope of airfoil upper or lower surface at 
trailing edge 

slope of airfoil at XP calculated by cubic 
spline interpolation SPLNl 

index for internal control of SPLNl subroutine 
equal to 1 implies first derivative specified, 
equal to 2 implies second derivative specified 

index for internal control of SPLNl subroutine 
equal to 1 implies first derivative specified, 
equal to 2 implies second derivative specified 

x-location of current mesh point on airfoil 
XIN (I) , ILE < I < ITE 

y-ordinate of airfoil at XP calculated by 
cubic spline interplation 


5,2 Description of Individual Subroutines 

This section provides a description of the individual subroutines in 
the program, including the main program. The descriptions are ordered 
alphabetically according to subroutine name, 

5.2.1 Subroutine ANGLE .- Subroutine ANGLE computes the quantity 
THETA (J, I) at the input mesh points (I,J) according to 

T / JK y. \ 

THETA (J, I) = ^ tan-1 j 

where XSING = 0.5. For R = \/y^ + (x^ - XSING) ^ < 1, the quantity is 
reduced by THETA(J,I) = R*THETA ( J, I ) . These values are used in subroutine 
SOLVE to enhance the convergence characteristics- of subsonic free-air flows 
by transmitting the effect of updated circulation throughout the flow 
field. This is accomplished by updating the potential at the end of each 
iteration sweep in x by 
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0^"^^ = 0^’''^ + - r^) -THETA (J, I) 

:,3. ' 


5.2.2 Siibroutine ARF(X) .- Subroutine ARF(X) evaluates the error 
function 


ARF (X) 



_t 


e 


2 

dt 


by using the rational fraction approximation given in the Handbook of 
Mathematical Functions, AMS 55, edited by M. Abramowitz and L. A. Stegun, 
Fifth Printing, August 1966, p. 299, Equation 7.1.26. 

5.2.3 Subroutine AYMESH .- Subroutine AYMESH computes an analytical 
(x,y) mesh based in part on the formulation in reference 11. That mesh 
formulation was designed for M^ < 1 free-air flows; however, it can be 

used for M ^1 flows as well as for wind tunnel environments. A 

00 

coordinate tranf ormation in x is made according to the following formula: 


X(x) = (1 - a^) { a^xe ^^ 2 ^^ + 




[1 _ 


2a< 

T 

( 1 ) 


tan ^ ag (x + a^) 


An initial x^ ' mesh is chosen by setting 


x^^^ = tan 


[5 (^) C. 


X 


(M- 


200 


1=1 


-X 


(1) 

402-1 


f 1 ^ ^ 1 ^ • • 

Corresponding X^ ^ (x^ ' ) are then computed from the above stretchxng with 

the following coefficient values: a^ = 0.225, a^ = 1.4, a.^ = 1.6, a^ = 0.75, 

a = 30.0, a^ = 0.603, and = 2.0. Then, for a fixed Ax increment equal 

to Ax = 2/(imAXI- 1), the corresponding x. points are found by using a 

quadratic interpolation scheme with the X^^^, x^^^ arrays. The final x^ 

mesh is found by using x^ = x^|^ + a^ where ag = 0.6188. 

The y array definition depends on whether the calculation is for free 
air or a tunnel environment. For free air 


117 



y . — 5.3 


tan 


TT 


3 - 


JMAXI n 


2 * /JMAXI 


(OMAXI ^ ^ 


tan 


JMAXI 


TT 


JMAXI 


+ 1 


, J^^ + 1 < j < JMAXI 


- ~ ^ . JMAXI 

“ ^JMAXI+l“j ’ ^ 3 ^ 2 


while for a tunnel environment 


y . = tan' 
^3 


3 - 


JMAXI 


JMAX 


JMAXI 


+ 1 < j < JMAXI 


~ ~ ^ . JMAXI 

^JMAXI+l-i » ^ ^ ^ ^ 2 


The default values for IMAXI and JMAXI used with this analytical 
mesh are IMAXI = 81, JMAXI = 64. These values produce a mesh sufficiently 
fine for almost all aerodynamic applications and permit the mesh halving 
option to he used twice; that is, fine to medium to coarse. 


5.2.4 Subroutine BCEND (I,JEND,L) .- Subroutine BCEND modifies the 
diagonal DIAG(J) and right-hand side RHS ( J) elements of the tridiagonal 
matrix in the tridiagonal matrix equation for the residual of the velocity 
potential along a column to include the boundary conditions along the botton 
(J = JBOT) and top (J = JTOP) rows. The routine first sets the index I 
(I = IVAL) to correspond to the current column being solved by SYOR and 
then branches to the appropriate modification of the type of flow environment 
being considered according to the following schedule: 
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RHS MODIFICATION 


./^•CYYU(JTOP).(0j^ 1 - 

X. - X. 

1 1-1 


+ CYYU(JTOP).0J,OP^ . 


CYYU(JTOP)(^ + ■^■jTOP+1, i) 


CYYU(JTOP) .0 


JTOP+l , i 


CYYU(JTOP)[i(^ + <^JTOP,i) 


JTOP,i,iJ 


CYYU(JTOP) 1 '^jTOPji ‘^JTOP+i,i 


CYYU ( JTOP) (^0 ^ . - 0^^^ .) 

^ ^ ^V^JMAX,i ^JTOP+l, 


(0 


JMAX, 


^ from eqs. (A), (B) ) 


POR.CYYU(JTOP) (0j^ . - 


X . - X . 

1 1-1 


+ CYYU(JTOP).0 


JTOP+l , i 









and for the bottom boundary 


BCTYFE 

JBOT 

DIAG 

MODIFICATION 

1(K > 0) 

JMIN+1 


1(K < 0) 

JMIN 

- >r^.CYYD(JBOT) 

X . - X . 

1 1-1 

2 

JMIN 

— 

3{K > 0) 

JMIN+1 

— 

3(K < 0) 

JMIN+1 

— 

4(K > 0) 

JMIN 

-CYYD (JBOT) 
FH 


4(K < 0) 


JMIN 


-CYYD( JBOT) 
FH 


5 (FOR >1.5) 


JMIN+1 


•FOR -CYYD (JBOT) 

X . - X . 

1 1-1 


5 (FOR < 1.5) 


JMIN 


RHS MODIFICATION 


'^^•CYYD ( JBOT) - 0 

^ ^ ^JMIN,i ^JMIN-i,i 

X. - X. ^ 

1 1-1 


+ CyYD(OTOT). 0 jgp^_^^. 


CYYD(JBOT)(-f£ + ^jbOT-1,i) 

CVTO(JBOT) + ^OBOT.i) ^ 

CYYD(JBOT) . + 0jbOT-i,i] 

CYYD(JBOT) 

^'^JMINji (A) » ^B)) 

FOR- CYYD (JBOT) . - 0™xivt • J 

^ JMIN, 1 JMIN, 1-1^ 

- ^'i-i 















where for BCTYPE = 5, superscript n refers to the iteration count, 


0 !"! = 


J , 1-1 


X. - X . , 

- _i 1-1 

POR 


. / 

Y 'd, 1 - 1/2 


(A) 


and 


^JMAX 

JMIN 


, i- 1/2 


jjytAx . 
JMIN’ ^ 

. (n) 

^JMAX-1 . 
JMlN+1’ ^ 

^JMAX . 
JMIN’^ ^ 

^JMAX-1 . 
JMIN+1’^ ^ 

Y 

Y 

Y 

Y 

UMAX 

JMAX-1 

JMAX 

JMAX-1 

JMIN 

JMIN+1 

JMIN 

JMIN+1 


> (B) 


where the (-) sign in equation (A) corresponds to the top (J = JTOP) 

boundary. This modification applies only for i = lUP, at which point all 

of the ■ and . values are set for the current iteration ‘ x 

JMAXji JMINji 

sweep. No modification is necessary for i > lUP. 

For BCTYPE = 6, the difference equations have not yet been worked out. 
Consequently, the user must insert the appropriate information required; 
otherwise, an error message is printed and an abnormal stop occurs. 

5.2.5 Subroutine BLOCK DATA .- Subroutine BLOCK DATA is a storage 
subroutine which contains all of the default values for the various 
parameters and arrays required as input to the program. 

5.2.6 Subroutine BODY .- Subroutine BODY determines the body geometry 
information required for the boundary conditions and output. Four user- 
option choices of body description are programmed and available according 
to the input control BCFOIL as follows: 


BCFOIL 

1 

2 

3 

4 


AIRFOIL 

NACA OOXX series 
Parabolic-arc 

User-supplied ordinates (default Korn) 
User specification 


The subroutine computes the body ordinates and slopes at the input 
x-mesh locations and normalizes them by the thickness ratio 6. For 
BCFOIL =3, a cubic spline interpolation is used for both slopes and 
ordinates, Next, the body volume per unit span, camber and thickness 
distributions are computed, then the airfoil upper and lower airfoil slopes 
are recomputed using a Reigel's rule nose correction RIGF according to 
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FXU(I) 


FXU(I) 

+ RIGF(<^.FXU(I) ) ^ 


FXL (I) 


FXL (I) 

\Jl + RIGF(<*'-FXL(I) ) ^ 


where 0 ^ RIGF ^ 1 and is user-specified. Finally, subroutine PRBODY is 
called to output the calculated information. 

5.2.7 Subroutine CDCQLE . - Subroutine CDCOLE computes the airfoil 
inviscid drag by the momentum integral method; that is, by integrating 
around a contour enclosing the body and along all shocks inside the 
contour according to the following formulation: 





2 . 1 
V _ Y + 1 

2 3 



dy 


(uv) dx 




Y + 1 
12 


/ 

SDC 


[u] ®dy 


where y is the transonically scaled y coordinate, n depends on the 
transonic scaling used (see Table 4-1) , and [u] is the jump in 0^^ across 
the shock waves S contained within the contour C. Sample contours 
incorporated in the program are shown below; 



where for the subsonic contours A and B, the upstream boundary is set at 
lU = (IMIN + ILE)/2 and the top and bottom boundaries at JT = JMAX - 1 
and JB = JMIN + 1, respectively. For situations where the velocity at 
the upper surface of the trailing edge is less than sonic, as in contour A, 
the downstream boundary is set at ID = (IMAX + ITE)/2. Otheirwise, ID 
is the I index at the x-mesh point closest to the three-quarter chord 
point on the airfoil, X(I) ^0.75, as shown in contours B and C. For 
supersonic free streams, as in contour C, the upper and lower boundaries 
are set to encompass the subsonic region ahead of the airfoil. We note 
that the reason for indenting the contours B and C in the manner shown is 
to avoid placing the drag contour behind an oblique supersonic shock; 
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that is, a shock Whose downstream flow is supersonic, since the present 
method uses a first-order accurate hyperbolic operator which tends to 
dissipate the shock structure over six to ten mesh points. This is an 
inherent weakness in the present method if sharp supersonic oblique shocks 
are required. 

Subroutine CDCOLE first fixes the locations of the contour boundaries 
according to the above criteria. in the case of a supersonic free stream, 
before the calculations are initiated, a check is made to insure that the 
bow shock is not attached or located too close to the body nose or too 
close to the upstream boundary. If it is, a message is printed to that 
effect, the drag computed by a surface pressure integration, and the sub- 
routine exited. If not, the subroutine proceeds to calculate the contour 
drag integral on the upstream, top, bottom, downstream, and body boundaries, 
and also on the shocks within the contour using in all cases a trapezoidal 
rule integration. After the computations are completed, information is 
printed regarding the drag contribution from each boundary, the total 
contour drag, the number of shock waves within the contour, the total wave 
drag, and a message stating whether all the shocks are contained within the 
contour or whether one or more of the shocks extend beyond the boundaries . 

5.2.8 Subroutine CKMESH .- Siobroutine CKMESH checks the number of 
points in both the input x-mesh and the y-mesh. If necessary, the x- 
mesh is adjusted to contain an odd number of points before the tail and 
an odd number after the tail, and the y-mesh adjusted to contain an even 
nxamber of points above and below the airfoil. In counting points in the 
x-mesh, the point at the trailing edge (I = ITE) is included in both the 
sets before and after the tail. If the addition of the extra point (s) 
causes either IMAX or JMAX to exceed 100, a message to that effect is 
printed, no points are added, and the subroutine exited. 

5.2.9 Subroutine CPPLOT .- Siibroutine CPPLOT produces a printer plot 
of the pressure coefficient on the dividing streamline (y = 0+) ahead of, 
on, and behind the airfoil. The character "U" is printed for the pressure 
coefficient on the airfoil upper surface, "L" for the lower surface, "B" 

for points before and behind the airfoil, and ” " for the critical 

(sonic) pressure coefficient. 

5.2.10 Siibroutine CUTOUT.- Subroutine CUTOUT reduces the number of 
input mesh points to establish a coarse grid for the first attempt at a 
solution. The x-mesh and the y-mesh are halved, and if possible halved 
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again. If it is desired to use the input mesh to convergence or if the 
input mesh cannot be refined, the XIN and YIN arrays are loaded into the 
working arrays X and Y and the routine exited. Otherwise, CUTOUT 
eliminates half the points in both the x-mesh and y-mesh and adjusts 
the indices IMAX and UMAX, keeping the first and last points of the meshes 
at the same location as they were originally. 

If it is desired to perform only one grid halving (ICUT = 1) , the 
subroutine loads the remaining points into the X- and Y-arrays and exits. 
If two mesh cuts are desired (ICUT = 2) and if after the first cut there 
are an odd number of points before and after the airfoil and an even number 
below and above the airfoil, the mesh is again halved and the points are 
loaded into the X- and Y-arrays. After each halving, siibroutines ISLIT 
and JSLIT are called to adjust the I indices at the leading and trailing 
edges and the J indices immediately above and below the airfoil. 

5.2.11 Subroutine DIFCOE .- Siabroutine DIFCOE computes on the current 
(X,Y) mesh the difference coefficients throughout the flow field, including 
the boundaries, that are required for determining the various finite-diff- 
erence forms of 0 , 0 and 0 needed for the solution of the partial 
differential equation for 0, In addition, the difference coefficients 
required to determine the velocities (0 ,0 ), together with special coeffi- 

^ y 

cients needed for extrapolation of flow field properties to the airfoil 
surface, and special difference coefficients for determining 0^ near the 
airfoil surface are also computed and stored, 

5.2.12 Function subroutine DRAG (CDFACT) . - Function subroutine DRAG 

computes the pressure drag by integrating 0 «0 around the airfoil 

X y 

surface. The pressure drag is defined as 


26 V 


° = .{S 


airfoil 


0 0~ dx 
X y 


or equivalently. 


2 • CDFACT 


■-/[ 


^ dF 

dx ^x 


^1 

dx 


dx 


where y is the transonically scaled y-coordinate, CDFACT is 

the appropriate transonic scaling factor for the drag coefficient, and 
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2 are the affine ordinates describing the airfoil upper and lower 
surface. The subroutine uses the latter form and computes the integral 
by a trapezoidal rule integration through subroutine TRAP. 

5.2.13 Subroutine DROOTS .- Subroutine DROOTS computes the constants 
ALPHAO, ALPHAl, ALPHA2, OMEGAO, OMEGAl, and 0MEGA2 which are required for 
the subsonic far-field doxiblet in an ideal slotted wind tunnel (BCTYPE = 4) . 
The alpha's are computed in an iterative fashion as follows: 

ALPHAO^ 1* “ tan“^ ^F*ALPHAO^“^ j 

ALPHAl^ = J - tan“^ F* (ALPHAl^"^ - ir) 

ALPHA2^ ^ 2 " ^F* (ALPHA2^”^ - 2tt) - 

where F is the tunnel slot parameter, P is the transonically scaled 
wall porosity factor, and K is the transonic similarity parameter. One 
hundred iterations are allowed for convergence, with the error criterion, 

|ALPHA^ - ALPHA^“^ I < 10“^ 

If any ALPHA fails to converge within 100 iterations, an error message is 
printed and the program stops. If all three alphas converge, then the 
omega's are computed as follows: 

OMEGAO = ( 1 + 

\ 1 + ctn^ (ALPHAO) 

with analogous formula for OMEGAl and OMEGA2. 

5.2.14 Subroutine ECHINP . - Subroutine ECHINP reads and prints all of 
the input cards that are used for the runs to follow. 

5.2.15 Function subroutine EMACHl(U) .- Function subroutine EMACHl 

computes either the local Mach number or the transonic similarity parameter 
based on local velocity. If the input logical variable PHYS = .T., the 
local Mach number is calculated and set equal to EMACHl according to 
EMACHl (U) = [1- (AK - ( y + 1) U) where m depends on the tran- 
sonic scaling used (see Table 4-1) . For PHYS = .F., €he local transonic 
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similarity parameter is computed and set equal to EMACHl; that is, 
EMACHl(U) = AK - (y + 1)U. 

5.2.16 Subroutine EXTRAP .- Subroutine EXTRAP provides initial values 
of 0 for siibsonic free-stream flows to subroutine GUESSP at mesh points 
which lie outside the range of the previous mesh. The formulation is 
based on the subsonic far-field solution for free air and for various 
tunnel simulation boundaries (free jet, solid wall, ideal slotted wall, 
ideal porous/perforated wall) . For free air the formulation used is 


. / ff ^ -1 / / Ky ^ , D 

0 (x,y) = - - tan I I + 

^ / 2 tt /it 


1 

^ - 2 




+ Ky'= 


and for tunnel wall boundaries 

r 

X— v+oo 


ff sin(T]3^) -P 

0(x,y) 5 — 1 - sgn(T)) + (1-J)0 h e 

- L o 


1 


+ 


2KH L 


B + cos (a Ti) e 
o o' 






, , f f 

0 (x,y) = - 

X—f-oo 


1 _ ^ 

H(1 + 


- 0 


sin[T] (tt - 3^) 1 

e 


+ F) ^2 TT - 3, 


D r (Tr-a^)|-| 

— (1 - B)fi 3 ^cos[ (tt - a^) TiJ e 
2 KH L J 


where 

1 

^ " 2 

5 = — = 

H‘ 

T, = i 

H 

and the other parameters are defined according to the following table. 
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Solid 

Wall 

Free 

Jet 

Perforated 

Wall 


Slotted 

Wall 


B 

a 

o 


. 1 



2 

IT 

TT 

0 

TT 

TT 

2 

2 

0 



0 

* 

* 


Po 


IT 

TT 

2 

2 

0 

0 


01 

* 

* 


NO s implication possible for ideal slotted wall — must use formulas below. 


cot a = Fa - 0 
o o 


0 < a < 7T 
— o — 


= F (a^ - it) -9 


0 < a^ < IT 


a = 1 + ^“i— 

° \ 1 + cot a 


^ 1 ^ £ 

V 1 + cot^a. 


tan 3 = -Fp + 9 

o o 


0 < Po 


tan 0^ = -F(0^ - TT) + 9 


- 2 i i 2 


1 + tan 0 


1 + tan 0 
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9 ^ = tan ^ (0) 

9 ^ = cot ^ (0) 

5.2.17 Subroutine FARFLD .- Subroutine FARFLD computes the appropriate 
boundary data for the outer boundaries of the computational mesh. In the 
case of a supersonic free stream (K ^ 0.0) , the upstream boundary conditions 
correspond to uniform undisturbed flow, the downstream boundary is required 
to be supersonic, and for the top and bottom boundaries the simple wave 
solution is employed. In this case, the siibroutine simply defines the 
variable FHINV = 1/F*H and returns. 

For a subsonic free stream, the functional form of the potential on 
the outer boundaries is prescribed and calculated. These forms represent 
the asymptotic far-field behavior of the potential solution, and are given 
by a concentrated unit strength doublet and vortex in free air or various 
wind-tunnel environments, with the doublet and vortex located at x = 0,5, 
y = 0. For an ideal slotted wind tunnel (BCTYPE = 4) , subroutines DROOTS 
and VROOTS are called to compute the constants needed in the doublet and 
vortex solutions; otherwise, the various constants are calculated within 
the subroutine. We note that the actual boundary values for 0 are set 
in subroutines RECIRC and REDUB, where the functional forms determined 
here are multiplied by the appropriate vortex and doublet strengths. 

5.2.18 Subroutine FINDSK (ISTART, lEND, J, ISK) .- Subroutine FINDSK 
identifies the presence of a shock wave on a specified row (j) of the 
computation mesh between x-points ISTART and lEND. Pairs of 0^ values 
are checked along the row until the condition 

PX(ISK,J) < SONVEL < PX(ISK-1,J) 

is satisfied, where SONVEL is the sonic point streamwise perturbation 
velocity. If such a pair is found, the subroutine is immediately exited 
with that value of ISK. If no shock is found, ISK is set equal to -lEND 
and the subroutine exited. 

5.2.19 Subroutine FIXPLT .- Subroutine FIXPLT uses the airfoil surface 
pressure distribution arrays GPL and CPU to set up the arrays XP, CPUP, 

CPLO, and CPS for use in subroutine CPPLOT. 
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5.2.20 S lib routine GUESSP .- Siibroutine GUESSP initializes the small- 
disturbance potential 0 array as follows: 

PSTART =1, 0 is set to zero 

PSTART =2, 0, X, and Y arrays are read from unit 7 in subroutine 
READIN together with other flow information about the 
old solution 

PSTART = 3, the arrays from the previous case are already in 0, 

XOLD , YOLD 

If PSTART = 2 or 3, the old 0 array on the XOLD, YOLD mesh must be 
interpolated onto the current X,Y mesh. A check is made to see if the 
XOLD mesh is the same as the XIN mesh. If XIN and XOLD are the same mesh, 
the 0 array may be interpolated by simple deletion of values at mesh 
points which have been deleted in subroutine CUTOUT. If the old and new 
X meshes are not the same, then a simple linear interpolation is made 
from the old 0's providing that each new x-point lies within the range 
of the old X mesh. If a new x-point lies outside the old X mesh, 
then for a supersonic free streEim 0 is set to zero, while for a subsonic 
free stream subroutine EXTRAP is called to extrapolate a new 0 value 
using the far-field solution. 

The same steps are followed to interpolate 0 in the y-direction 
with the following slight difference. If the new y-point lies outside 
the range of the old Y mesh, then 0 is set equal to either i 

if the new y value is less than the minimum old y value, or to 

■ if the new y value is greater than the maximxim old y value. 

JMAX0,i jf j 

Only in the case of subsonic free air flow (K > 0., BCTYPE = 1) is sub- 
routine EXTRAP called to extrapolate for 0 using the far-field formula. 

5.2.21 Subroutine INPERR(I) .- Siibroutine INPERR writes the appropriate 
error message associated with an error in input and stops the program. 

There are eight input error messages: 

Error Nuitber Message 

1 IMAX or JMAX is greater than 100, not allowed 

2 X mesh points not monotonic increasing 

3 Y mesh points not monotonic increasing 

4 Mach number not in permitted range (0.5, 2.0) 
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Error Number 


Message 


5 Alpha not in permitted range (-9.0, 9.0) 

6 Delta not in permitted range (0.0, 1.0) 

7 AK = 0. Value of AK must be input since PHYS = .F, 

8 Mach number too close to 1, not allowed 

5.2.22 Subroutine ISLIT(X) .- For a given x-mesh array X, subroutine 
ISLIT computes the I indices associated with the mesh points on the air- 
foil surface (0. < x < 1.) at or just behind the leading edge (I = ILE) 

and at or just ahead of the trailing edge (I = ITE) . 

5.2.23 Subroutine JSLIT(Y) .- For a given y-mesh array Y, subroutine 
JSLIT computes the J indices associated with the rows of mesh points 
immediately below (J = JLOW) and above (J = JUP) the airfoil (y = 0.). 

5.2.24 Function LIFT (CLFACT) The real function LIFT computes the 
lift coefficient from the jump in potential A0 at the trailing edge. The 
lift coefficient is defined as 

1 1 
C = - r (C -C )dx = f Wx 

J J I 

or, equivalent, from an integration by parts 

= 2. CLFACT -A0. 

L te 

2/3 — n 

where CLFACT ) is the appropriate transonic scaling factor for 

the lift coefficient. 

5.2.25 Subroutine MACHMP .- Subroutine MACHMP produces a print map of 
the local Mach numbers, 'rounded to the nearest 0.1, throughout the flow 
field. The row of points immediately above the airfoil are designated 

by (+) , the row immediately below by (-) , the leading edge by (L) , and the 
trailing edge by (T) . Supersonic points are designated by an asterisk (*) . 

5.2.26 Subroutine MILINE .- Subroutine MILINE determines the coordi- 
nates where sonic velocity occurs and outputs them. Beginning with row 

J = JMAX, pairs of 0^ values are checked along the row to determine 
whether either of the two conditions 
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E>X(I,J) < SONVEL < PX(I - 1, J) 

EX(I,J) ^ SONVEL ^ PX (I - 1,J) 

is satisfied, where SONVEL is the streamwise perturbation velocity at a 
sonic point. If either of these conditions are met, a linear interpolation 
is made between X(I,J) and X(I-1,J), that computed x-coordinate stored 
temporarily in array XSONIC and permanently in array XSLPRT, and the y- 
coordinate loaded into array YSLPRT. After each row is scanned, the 
XSONIC array and the J index of the row are printed. When the row 
immediately under the airfoil is reached, the heading "BODY LOCATION" is 
printed if at least one sonic point has been found. 

If more than 200 sonic points are found, a message to this effect is 
printed and the subroutine is exited. After the entire grid has been 
checked for sonic points and if at least one has been found, the siibroutine 
checks whether any of the sonic points lie on the outer boundaries. If 
one does and if the case under study is either a subsonic free-stream 
calculation or a free air (BCTYPE = 1) supersonic free-stream calculation, 
the following message is printed out; 

***** CAUTION ***** 

SONIC LINE HAS REACHED A BOUNDARY 

THIS VIOLATES ASSUMPTIONS USED TO DERIVE BOUNDARY CONDITIONS 
SOLUTION IS PROBABLY INVALID 

Finally, the subroutine defines the boundaries and step increments 
for the printer plot of the sonic line and passes these constants along 
with the arrays XSLPRT and YSLPRT and the number NPTS of sonic points 
into a call to the subroutine PLTSON, which plots the sonic line. 

5.2.27 S\ibroutine NEWISK (ISKOLD. J.ISKNEW) .- Subroutine NEWISK 
locates an updated x-position (I = ISKNEW) of the shock wave on a speci- 
fied row J given an initial guess for the location (I = ISKOLD) . The 
subroutine searches the range ISKOLD - 3 ^ I < ISKOLD + 2 testing the 
condition PX (ISKNEW - 1,J) ^ SONVEL > PX (ISKNEW, J) . If the condition 

is met, the subroutine returns with the current value of ISKNEW, Otherwise 
with no shock being found, ISKNEW is set negative and the subroutine exited 

5.2.28 Function PITCH (CMFACT) Function PITCH computes the airfoil 
pitching moment (positive nose-up) about x = x^, y = 0. Pitching moment 
is defined as 
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or, equivalently 


C 

m 


/ 


(x -X ) (C 



)dx 


C = 
m 


-2-CMFACT* (1 -x^) 


j. 

-/ 


A0 dx 


2 /3 “11 

where CMFACT (= 6 ' ) is the appropriate transonic scaling for the 

moment coefficient. The subroutine uses the latter form for and 

computes the second integral hy trapezoidal rule integration through 
subroutine TRAP. We note that the subroutine sets = 0.25, so that 

the pitching moment is calculated about the quarter chord. 

5.2.29 Subroutine PLTSON (X,Y,XAXMIN,XMAX,XINCR,YAXMIN,YMAX,YINCR. 
NPTS) . - Subroutine PLTSON is a modified version of a printer plot routine 
developed by M. S. Itzkowitz, May 1967. The subroutine provides a printer 
plot of the sonic lines that are present in the flow field. The plot is 
provided on a 51 X 101 point rectangular grid with -1.0 < y < 1.5 and 
0,75 < X < 1.75, and uses 56 printer lines. The argument list is all 
input and is defined as follows: 


X 

Y 

XAXMIN 

XMAX 

XINCR 

YAXMIN 

YMAX 

YINCR 

NPTS 


array of x-ordinates to be plotted 
array of y-ordinates to be plotted 
minimum x (left) grid boundary 
maximum x (right) grid boundary 
increment between x-grid marks 
minimum y (lower) grid boundary 
maximum y (upper) grid boundary 
increment between y-grid marks 
dimension of (X,Y) arrays 


If either of the incremental step sizes is zero, the program will 
exit with no plot produced. The input arrays are not destroyed during 
the calculation. 


5.2.30 Subroutine PRBODY . - Subroutine PRBODY prints out the airfoil 
geometrical characteristics. If logical variable PHYS = ^T., all dimen- 
sions are normalized by the airfoil chord; otherwise, all dimensions 
except X are normalized by chord length times thickness ratio. Quanti- 
ties printed are maximum thickness, volume of airfoil per unit span. 
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maximum carriber, and for each input x-mesh point along the airfoil, the 
y-ordinates of the upper and lower surfaces of the airfoil, the thickness 
distribution, and camberline. 

5.2.31 Subroutine PRINT .- Subroutine PRINT is the main print control 
of program output. The subroutine prints header information regarding: 

(i) choice of printout in similarity on physical variables 

(ii) definition of transonic scaling (Cole, Spreiter, Krupp, or 
user) 

(iii) boundary condition type (free air, free jet, solid wall, 
slotted wall, or porous wall) 

(iv) choice of differencing (fully conservative or not conservative) 
at shock 

(v) choice of Kutta condition or lift specification 

and also outputs the Mach number, thickness ratio, angle of attack, tran- 
sonic similarity parameter, far-field doublet strength, airfoil volume 
(per unit span) , and the values of the transonic scaling parameters used 
for scaling the coefficients of pressure, lift, drag, and moment, the y- 
coordinate, and the vertical velocity. The rest of the print output is 
performed by calling the following subroutines: PRINTl, FIXPLT, PRTWAL, 

MI LINE, PRTFLD, and C DC OLE. 

5.2.32 Subroutine PRINTl .- Subroutine PRINTl outputs the pressure 
coefficient and local Mach number (or local similarity parameter if 
PHYS = ,F.) on the airfoil and dividing streamline (y = 0.+) at each x- 
point of the current mesh, and also provides a printer plot of the pressure 
coefficient along side the tabulated values. In addition, the y-coordinate 
array Y is printed as well as the lift, moment, and sonic pressure 
coefficients. Since PRINTl is used to putput these quantities on each 

grid (coarse, medium, and fine), a header is written to identify the 
current grid. If the local Mach nimnber exceeds 1.3, a warning message is 
printed indicating that the predicted shock jumps may be in error. Also, 
if a detached bow shock wave is between IMIN and IMIN + 1, a message is 
printed indicating that the detached shock will lie upstream of the current 
X mesh, the ABORT parameter set equal to true and the calculation terminated. 
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5.2.33 STjbroutine PRTFLD .- Sixbroutine PRTFLD outputs the pressure 
coefficient, flow angle, and Mach nxuriber in the flow field. Ihe number 
of rows (J lines) printed is set by the user-input value of PRTFLO as 
follows: 

PRTFLO = 1, no J lines are printed 

PRTFLO = 2, all J lines are printed 

PRTFLO = 3, three J lines around the row where the 
maximum iteration error in <t> occurs 
(i.e., J = JERROR) are printed 


5.2.34 Sub rout ine PRTMC . - Subroutine PRTMC produces a local flow 
character map of the flow field by ascribing to each point in the input 
mesh a letter designating whether the flow at that point is elliptic 
(subsonic), parabolic (sonic), hyperbolic (supersonic), or shock (shock 
point) according to the convention; 


- Elliptic 
P Parabolic 
H Hyperbolic 
S Shock Point 


(Subsonic) 

(Sonic) 

(Supersonic) 

(Shock) 


5.2.35 Subroutine PRTSK (Z .ARG.L.NSHOCK.CDSK.LPRTl) . - Sxibroutine 
PRTSK provides an inviscid wake profile for all of the shock waves con- 
tained within the momentum contour used to calculate the drag. The wave 
drag contribution CD(y) and total pressure loss P^(y)/P^ along each 
shock wave is given as a function of the transonically scaled y- 
coordinate. In addition, the total wave drag for each shock is also 
provided. If a shock wave extends outside the contour, a message to that 
effect is printed indicating that shock losses are not available for that 
portion of the shock. 


5.2.36 S ubroutine PRTWAL .- Subroutine PRTWAL determines the pressure 
coefficient and the flow angle on the wind-tunnel walls (y = + H) according 
to the particular type of wall, prints that information, and also provides 
a printer plot of the pressure distribution along side the tabulated 
printout. Information regarding the wall type, tunnel half height, wall 
porosity factor (if applicable) , tunnel slot parameter (if applicable) , 

and critical pressure coefficient are also provided. 

5.2.37 Function PX(I,J) .- Function PX computes the streamwise pertur- 
bation velocity 0^ at the point (I,J) . Different differencing forms are 
used depending whether the point is on the upstream or downstream boundaries 
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or is an interior point. For the interior points, 0^ is given by 


2 L - ^i-i J 


•while on the upstream boundary (I = IMIN) 


3 i+i “ -i 1 1 r^-i -i 

0 = — 3 1 -lUi _ L 3 

2 X. - X. 2 X. 

L 1+1 1 J L 1 


- 0 . . 

1+2 . i+1 


i+2 ^i+1 


and on the downstream boundary (l = IMAX) 


X 


3 

0 . . - 0 . . 

1 

0 . . — 0 . . 
3 , 1-1 ^ 1 . 1-2 

2 

X . - X . 

L 1 1-1 

2 

X. - X. 

L 1-1 1-2 


5,2.38 Function PY Function PY computes the vertical pertur- 

bation velocity 0^ at the point (I, J) , Different differencing formulas 
are employed depending whether the point is on the upper or lower boun- 
daries or on the rows immediately above or below the airfoil. In the 
latter case, separate formulations are involved depending upon whether 
the point is ahead, over or under, or behind the airfoil. For all of the 
other points, 


0 = 

y 


1 "^.j+i^i "^i,i 

2 L ^j+i ■ 




- 0 . 


j-1 


. 1 


The exceptional cases are: 


Lower Boundary (j = JBOT) 


0 = 
y 


upper Boundary 


0 = 

y 


3 

”0 . . - 0 , . " 
3+1,1 +1,1 

1 

^ 1 + 2 , ± '^i+i.il 

2 

^j+i 

2 

. ^j+2 ” ^j+i J 

(j 

= JTOP) 



3 

"^3,i ~ "^i-i.i 

1 

^i-i , i ^i-2 . i 1 

2 

- ~ ^j-i J 

2 

_ ^j-i “ ^j-2 J 


Row below airfoil (j = JLOW) 
(a) Ahead 


= 1 
2 

_ 


^JUP.i ^JLOW.i ^iJLOW. i ^JLOW- 


JUP 


- y 


JLOW 


JLOW 


^ JLOW-1 . i 
'’jLOW-i 


135 


I 



Under 


(b) 




(c) Behind 



- a + 


‘^JLOW,i ~ ^JLOW-x,i 


• JLOW 


' y 


JLOW-i 


= 1 r 
2 


1 I ^JUP.i ^JLOW,i ^ ^JLOW,i ^ 


JUP 


- Y 


tJLOW 


JLOW 


"^OLOW-i , i 
^JLOW-i 


Row above airfoil (j = JUP) 

(a) Ahead 


i 


^JUP.i ‘^JLOW, i ^JUP+i,i "^JUP^i 


^JUP ^JLOW 


^JUP+i ^JUP 


(b) Over 


0 = i 
2 


dF 


u 


0 


dx 


- a + 


JUP+i , i ^JUP, i 


JUP+i 


- y 


JUP 


(c) Behind 


= 1 r* 
2 


0 = 1 \ ^JUP.i ^“^i '^JLOW,! 


0 


JUP 


- y 


JLOW 


JUP+i , i 
"jUP+i 


- 0 

- y 


JUP 

JUP_ 


5.2,39 Subroutine READIN .- All user-option input to the program is 
read in siibroutine READIN. The subroutine first calculates and prints the 
elapsed time in seconds that the previous case took to run, or for the 
first case sets the start time. Next, a check is made to determine if any 
test cases are left. If there are and if the user has opted to use the 
previous result for 0 as a first guess for the current case (PSTART = 3) , 
then a test is made to determine if the 0 array in core from the previous 
case is usable (i.e., if the previous calculation was not aborted). Next, 
if the default grids for either subsonic free air (XKRUPP, YFREE) or tunnel 
(XKRUPP, YTUN) , or the analytic default mesh (AYMESH = TRUE) are to be used, 
the subroutine loads those grids into the XIN, YIN arrays and then prints 
out all of the user-option input parameters, including those having default 
values. A check is then made to insure that the input mesh does not 
exceed 100 points in either direction and that the mesh ordinates are 
monotonic increasing. Next, checks are made on a, and ^ to insure 

they are within the permitted range, and then the indices of the leading 
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(I = ILE) and trailing (I = ITE) edges and the rows immediately above 
(J = JUP) and below (J = JLOW) the airfoil are determined. Subroutine 
CKMESH is then called to insure that certain grid areas have an appropriate 
(odd or even) niirriber of points. If the case underway is a tunnel simulation 
calculation, the bounds of the grid are checked and adjusted if necessary. 
Finally, if the initial guess for the 0 array is to be read from unit 7 
(PSTART = 2), the necessary input from that calculation is read and then 
printed. 

5.2.40 Subroutine RECIRC .- Subroutine RECIRC computes the jump in 
0 at the trailing edge, A0^^, the updated far-field circulation, ^ > 
and the jump in 0, A0 (x) , along the slit y = 0., x > 1., according to 
the following formulas. 


For KUTTA = .T., 


^^te '^te '^te 


0 


JUP. ITE 


^JUP+l ~ ^JUP+i . ite'^jup 
^JUP+ l " ^JUP 


^JLOW-l . IT e'^JEOW ^ JLOW. ITE* ^JLOW-1 

^JLOW “ ^JbOW-i 


.n+i 


n 


Pff = (1. 


A0(x) = A0^^ + ^ - A0^^) 


te X 


max 


where cOp is the relaxation factor for circulation, while for KUTTA = -F., 


A0 


CLSET 


te 


, ^ CLSET 

ff 2 


A0 (x) 


CLSET 

2 


where CLSET is the specified lift coefficient. 

5.2.41 Subroutine REDUB .-- Siibroutine REDUB computes the far-field 
doublet strength. For lifting free air flows (BCTYPE = 1 and ABS (CIRCFF) 

> 10~^) , the doublet strength is set equal to the model volume. For other 
flows the nonlinear contribution (DBLSUM = ((y + 1)/4)* // 0^dx dy) is added 
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to the volume. The double integral is computed by considering 0^ to be 
centered midway between mesh points; that is. 


IMAX 


Y + 1 /iJMAX 

DBLSUM = 2^ AX J (0j) 


l=IMIN 


JMIN 


so that 


IMAX 


DBLSUM = 


1 1 /^JlylAX 


)^dy 


i=IMIN y 


JMIN 


and the y-integration is performed using a modified trapezoidal rule. 

We note that the doublet strength is required only for M^ < 1. For 
subsonic free air lifting flows, the doublet integral DBLSUM is not con- 
vergent since 0 tan~^ (y/x) ; in this case, a more complicated 

integral applies (see Krupp, ref. 3) . This program neglects that contri- 
bution, and while this procedure introduces an error, numerical experimen- 
tation has shown it not to be significant, 

5.2.42 Subroutine REFINS .- Subroutine REFINE doubles the ntiinber of 
mesh points in both the x- and y-meshes by inserting new mesh points 
halfway between the old mesh points. The subroutine also linearly inter- 
polates the 0 array to the new points, determines the new (I,J) indices 
of the leading (ILE) and trailing (ITE) edges, and the rows immediately 
above (JUP) and below (JLOW) the airfoil by calls to subroutines ISLIT 
and JSLIT, respectively, and uses a linear extrapolation to calculate 

0 on the new JLOW and JUP rows. 

5.2.43 Subroutine RESET .- Subroutine RESET updates the far-field 
boundary conditions for subsonic free-stream flows. The potential 0 is 
recalculated on the upstream (IMIN) and downstream (IMAX) boundaries for 
both free air or wind-tunnel simulations. The update is accomplished at 
the end of each iteration sweep through the flow field. For free air flows 
(BCTYPE = 1) , new boundary values are also calculated on the top (JMAX) 

and bottom (JMIN) boundaries; while for wind-tunnel simulations, this 
calculation is omitted. 

5.2.44 Subroutine SAVEP .- Subroutine SAVEP automatically stores 
restart data from the currently completed calculation in an "old data" 
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block. The siibroutine first rescales the parameters back into the input 
format and then stores the following parameters and arrays: TITLE (I), 

IMIN, JMIN, iIMAX, CL, EMACH, ALPHA, DELTA, VOL, DUB, X(I), and YIN (J) . 

If the user has opted to save the restart block (PSAVE = .T.) , then the 
subroutine also writes the above information on Tape 3. 

5.2.45 Subroutine SCALE .- Subroutine SCALE scales physical variables 
that are required for program computation. The option to scale or not is 
controlled by the logical input variable PHYS. For PHYS = .T., all input 
and output quantities are in physical units normalized by free-stream 
values and airfoil chord, and SCALE reduces them to transonic variables 
according to the following convention: 


SIMDEF = 1, 
SIMDEF = 2, 
SIMDEF = 3, 
SIMDEF = 4, 


Cole scaling 
Spreiter scaling 
Krupp scaling 

User-option scaling; if this option is used, 
the definition of local Mach number must also 
be adjusted in EMACHl 


For PHYS = .F., input is already in scaled variables and no further 
scaling is done. In this case, the user must input the value of the 
transonic similarity parameter AK = (1 - M^) where the exponent 
m is now user-specified. 

Siibroutine SCALE then checks to determine that AK has an appropriate 
value for the case being considered, computes the square root of AK(RTK), 
the sonic velocity (SONVEL) , and the critical pressure coefficient (CPSTAR) 
and then exits. 

5.2.46 Subroutine SETBC .- Subroutine SETBC sets the limits on the 
range of the I and J indices for solution of the difference equations 
according to the following schedule: 
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M < 1 
00 

BCTYPE 

I UP 

I DOWN 

JTOP 

JBOT 

1 

IMIN+1 

IMAX-1 

JMAX-1 

JMIN+1 

2 

IMIN+1 

IMAX-1 

UMAX 

JMIN 

3 

IMIN+1 

IMAX-1 

jmx -1 

JMIN+1 

4 

IMIN+1 

IMAX-1 

UMAX 

JMIN 

5 (POR <1.5) 

IMIN+1 

IMAX-1 

JMAX 

JMIN 

5{P0R > 1.5) 

IMIN+1 

IMAX-1 

JMAX-1 

JMIN+1 




M > 1 

CO 



BCTYPE 

I UP 

I DOWN 

JTOP 

JBOT 

1 

IMIN+2 

IMAX 

JMAX 

JMIN 

2 

IMIN+2 

IMAX 

JMAX 

JMIN 

3 

IMIN+2 

IMAX 

JMAX-1 

JMIN+1 

4 

IMIN+2 

IMAX 

JMAX 

JMIN 

5 (POR < 1.5) 

IMIN+2 

IMAX 

JMAX 

JMIN 

5 (POR > 1.5) 

IMIN+2 

IMAX 

JMAX-1 

JMIN+1 


The subroutine also computes the body slope boundary conditions at the 
current x-mesh points on the body, multiplies them by the appropriate 
mesh spacing constants and stores them into arrays FXUBC ( J) , FXLBC(I) for 
use in solving the finite-difference equations at points on the rows ^ 
immediately above and below the airfoil 

5.2.47 Subroutine SIMP (R,X,Y,N, lER) . - Subroutine SIMP calculates 
the integral / y dx by using Simpson's rule integration. The subroutine 
argument list is defined as follows: 

R resultant value of the integral 

X vector array of x points 

Y vector array of y values 
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N length of vector arrays (X,Y) 

lER error control index; equal to 1 for satisfactory result; 

equal to 2 when only one point is in the interval (N = 1) ; 
equal to 4 when X array not monotonic 

Equal point spacing is not required and the number of points N can be 
either odd or even. In the latter case, a polynomial fit through the 
first three points is used and an analytical integration performed from 
X(l) to X(2) in order to obtain an odd number of points for the remaining 
interval, X(2) to X(N). 

5.2.48 Subroutine SOLVE .- Subroutine SOLVE controls the sequence of 
calculations involved in the finite-difference solution for 0, The 
potential is calculated by using a successive line over -relaxation (SLOR) 
algorithm and sweeping the flow field from upstream to downstream limits 
one column at a time. At the start of each sweep, subroutine RECIRC is 
called to compute the jump in potential at the trailing edge, the circu- 
lation for the far-field boundary, and the jump in potential along the 
slit y = 0, X > 1. Next, subroutine SYOR is called to compute a new value 
of the potential at all the grid points. For subsonic flows, after the 
program has completed an iteration sweep, and if the current calculation 
is a free air case, the potential is updated throughout the flow field by 
adding the increment in potential due to the change in circulation 
multiplied by the far-field vortex behavior. Then subroutine REDUB is 
called (but only at every NDUB'*'^ iteration sweep) to recompute the far- 
field doublet strength, and then subroutine RESET is called (at each 
iteration) to update the far-field boundary conditions. At every IPRTER^^ 
iteration, the iteration count (ITERATION) , lift coefficient (CL) , moment 
coefficient (CM) , I and J locations (lERR, JERR) where the maximum iteration 
error in 0 occurs, the absolute magnitude of the maximum iteration error 
in 0 (ERROR), the I and J locations (IRL,JRL) of the maximum residual, 
the absolute magnitude of the maximum residual (BIGRL) , the absolute 
magnitude of the iteration error in circulation (ERCIRC) , the I location 
(ICPU) of the point on the airfoil where the maximum iteration error in 
upper surface pressure coefficient occurs, the absolute magnitude of the 
maximum iteration error in upper surface pressure coefficient (CPERRU) , 
and the corresponding results (ICPL, CPERRL) for the maximum iteration 
error in surface pressure coefficient. The results are then checked for 
convergence of potential. If the test is met, the message "SOLUTION 
CONVERGED" is printed and the subroutine exited. If the convergence 


141 


criteria is not met, a divergence test on 0 is performed. If the 
maximum iteration error in 0 has become greater than the divergence 
control (DVERGE) , the error message "SOLUTION DIVERGED" is printed and 
the calculation aborted. If the solution has neither converged nor 
diverged, the iteration sweeps are continued up to the limit, MAXIT, at 
which point the message "ITERATION LIMIT REACHED" is printed and the 
subroutine exited. 

5.2.49 Subroutine SPLNl (X.Y.N) .- Subroutine SPLNl is a cubic spline 
interpolation subroutine which determines both the ordinate and slope of 
a function using a cubic spline fit. The argument list consists of a 
table of (X,Y) ordinates and is defined as follows: 

X array of independent variable 

Y array of dependent variable 

N dimension of (X,Y) arrays 

There are two entry points to this subroutine. A call to SPLNl initializes 
the cubic spline coefficient arrays, while a call to SPLNlX will determine 
the spline-fit ordinate (YP) and slope (DYP) at the specified point XP. 

We note that XP,YP, and DXP are passed through a name common block (SPLN) 
rather than an argument list. 

To use SPLNl it is necessary to specify a derivative of Y at the 
end points X(1),X(N). Either the first or second derivative at these 
points may be given. Control for this option is through the parameters 
(Kl,K2) according to the following: 


K1 = 1, 

DYl = first 

derivative 

of 

Y at X(l) 

Kl = 2, 

DYl = second 

derivative 

of 

Y at X(l) 

K2 = 1, 

DY2 = first 

derivative 

of 

Y at X(N) 

to 

II 

to 

DY2 = second 

derivative 

of 

Y at X(N) 


Values for (Kl,K2,DYl,DY2) must be specified prior to the call to SPLNl. 

5.2.50 Subroutine SYO R.- Subroutine SYOR determines the potential 0 
at the interior grid points throught the flow field; that is, JBOT ^ J ^ 
JTOP, lUP < I ^ IDOWN. This is accomplished by solving the tridiagonal 
matrix equation AC^ = fj^ where "Cji^ represents the correction potential 
and the N dimensional column vector (with N = JTOP - JBOT + 1) defined 
by 
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and where A Is an NXN dimensional, diagonally-dominant , tridiagonal 
matrix, and is an N dimensional column vector. 

The following solution sequence is repeated for each x-station from 

lUP to IDOWN. The coefficient 1/ (x . - x. of the (b . term is 

calculated. Then the array VCj representing the coefficient of 0^^ 

in the partial differential equation; that is, (K - (y + l)0^)/2Ax, is 

computed at each J station. Next, the arrays representing the diagonal 

(DIAGj), subdiagonal (SUB^), and superdiagonal (SUP^) elements of the 

tridiagonal matrix A are determined, where account is taken in calculating 

DIAGj of whether VCj is greater or less than zero. The array RHS which 

is equal to the negative of the residual (-R^j) , and which represents the 

right-hand side f^ of the matrix equation is then computed. If the 

iteration sweep in x has proceeded to the airfoil; that is, ILE < I < 

ITE, the DIAGj, SUB ^ , SUP ^ , and RHSj arrays are modified at the points 

immediately below (j = OBOW) and above (j = JUP) the x axis to account 

for the airfoil boundary condition. A similar procedure is used at 

(j = JL0W,JUP) at locations behind the trailing edge to account for the 

Kutta condition jump in potential along the cut extending from the trailing 

edge to the downstream boundary. Next subroutine BCEND is called to 

modify the diagonal (DIAG^) and right-hand— side (RHS^) arrays to account for 

the appropriate boundary conditions at JBOT and JTOP. The current column 

is then scanned to see whether the maximum residual I R-; . 1 = I RHS . I is 

I I max I J ' 

contained within it. If it is, that value (BIGRL) and the I , J) locations 

(IRL,JRL) are stored. Finally, modifications are made to DIAG . and RHS. 

3 3 

to add the e At term according to 


DIAG . = DIAG . 7 ^ T 

1 1 (x . - X . ) 

' X x-i^ 


RHSj = RHSj - G 


(0 ^ 
V D.l-I 3.1-V 
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The tridiagonal matrix equation A is then solved by using 

the method of triangular decomposition. The NXN dimensional, tridiagonal 
matrix A is factored into the product A = LU, where L is a lower 
triangular matrix containing only subdiagonal and diagonal elements and 
U is a special upper triangular matrix containing only superdiagonal 
elements and unit diagonal elements. Thus, the original equation 

AC. = L U C. = f . 

1 XI 

is factored into two equations 


U C. = Z 
1 

L Z = f. 

1 

The latter equation is solved first for Z and then the former equation 
is solved for by back-siA>stitution, 

Finally, the new potential is computed by adding the correction to 
the old potential, and the correction potential vector is scanned to 

determine whether the maximum correction is contained within it. If it is, 
that value (ERROR) and the (I,J) location (lERROR, JERROR) are stored for 
output . 

5.2.51 Subroutine TRAP (X.Y.N. SUM) . - Subroutine TRAP performs an 
integration of the vector array Y with respect to the ordinates in the 
vector array X by using the trapezoidal rule. Here, N is the length 
of the X,Y arrays and SUM is the resultant integral. The formula used 
is 


N-1 

SUM = ^ 7 (X. - X.) (y. . + y.) 

2 x+i x' '-^x+x -^x 

i=l 

5.2.52 Main program TSFOIL (INPUT. OUTPUT, TAPE5 = INPUT, TAPE6 = 
OUTPUT, TAPE3, TAPE?) .- TSFOIL is the main program. No calculations are 
performed within this routine, which acts only to call the necessary 
sxxbroutines to read input, perform the required calculations, and print 
the output. Two tests are made within the routine that determine: 

(1) when the final computation mesh has been reached; and (2) whether 
the current calculation has been aborted. If either of these tests are 
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positive, the program prints the final output for the current case, 
resets the mesh parameters hack to those for the input mesh, terminates 
the current calculation, and goes on to read the input for the following 
case . 

5.2.53 Subroutine VROOTS .- Subroutine VROOTS computes the constants 
BETAO, BETAl, BETA2, PSIO, PSIl, and PSI2 which are required for the siib— 
sonic far— field vortex in an ideal slotted wind tunnel (BCTYPE = 4) . The 
beta's are computed in an iterative fashion as follows; 


BETAO” 


BETAl^ 


BETA 2^ 


n- 


tan -F. BETAO + 


n-i . 


tan ^ -F. (BETAl^ ^ + tt) + 




,n-i 


tan ^ I -F« (BETA2“ " - tt) + 

P J 


where F is the tunnel slot parameter, K the transonic similarity param- 
eter, and P the transonically scaled wall porosity factor. One hundred 
iterations are allowed for convergence with the error criteria 


|BETA^ - BETA^-^ I < 10“^ 

If any BETA fails to converge within 100 iterations, an error message is 
printed and the program stops. If all three BETA'S converge, then the 
PSI's are computed as follows: 


PSIO = 1 + 

1 + tan^ (BETAO) 

with analogous formulas for PSIl and PS 12. 
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PROGRAM TSFQILUNPUT»QUTPUT^TAP6!3<lNP(jT«TAP66-0UTPUT»TAPE3»TAPg7) 

C**«**A«A4 ******«**« «*«**»««* A4«***#***««*«*P«*^«««*«*«««*«****»****«« 

c 

C MAIN PROGRAM FOR TSFOU 

C PROGRAM COMPUTES TRAN^NIC FLOW PAST A TUDQ IMENSIQNAL 

C LIFTING AIRFOIL USING TRANSONIC SMALL DISTURBANCE THEORY 

C 

C PROGRAM WRITTEN BY 

C EARLL M« MURMAN and frank R» 0A1LEY 

C NASA-AMES RESEARCH CENTER 

C AND 

C MARGARET L* JOHNSON 

C COMPUTER SCIENCES CORPORATION 

j DOCUMENTED BT 

C STEPHEN S. STAH*R* 

C NIELSEN ENSINEEAING AND RESEARCH. INC. 

C»* 

LOeiCAL ABORT 

COMMON / CGM3/ IREF > ABORT > ICUT , KSTEP 
C 

C WRITE header page INFORMATION 


WRITE (B.lCwO) 

WRITE (6.100I) 

WRITE (6.1002) 

WRIT: (6.1C03) 

WRITE (6.1C02) 

WRITl (6.100AI 
WRITE (6.1002) 

WRITE (6.1C0b) 

WRITE (6.1C02) 

URITl(6.1J06) 

WRIT.EU.1002) 

WRITE(6.1007) 

WRITb(6.10D2) 

WRITE (6.1001) 

1(00 F0RMATUH1///////7/////T///) 

ICOl F0PMAT(26X.69(1H«)) 

10C2 F0RMAT(26X,1H*,67x,1H*) 

1C03 F0RMAT(2AX.1H*,25X,15H PROGRAM T3 FOI L. 27X .IH*/ 

1 2AX.1HP.29X. 7M SOLVES. 31X.1H*/ 

2 2AX.1H*. 6X.56H INVISCIO FLOW PAST THIN TWO DIMENSIONAL LIFTING 

3AIRF0II.6X.1HP/ 

A 2AX.lriP.29X. 6H US ING. 32X. IHP/ 

6 2AX.IHP.1DX.33H TRANSONIC SMALL DISTURBANCE THEORY. 17X.1HA/ 

6 2AX.1H*. 9X.AIH FULLY CONSERVATIVE FINITE DIFFERENCE EQUATIONS. 

7 UX.IHA/, 

n 2AX.1HA.17X.31H SUCCESSIVE LINE aVERRELAXATI0N.19X.lHP) 
lOOA F0RMAT(2AX. 1HA.27X. IIH WRITTEN BY.29X.1H*) 

10C9 FORMAT) 2AX.1HA.15X. 36H EARLL M. MURMAN AND FRANK R. B A ILEY. 16X. IHA 

1 2AX.1H+.19X.26H NA5A-AMES RESEARCH CENTER. 22X. iH*/ 

2 2AX.1HA.19X.26H MOFFETT FIELD. CALIFORNIA. 22X.1HA/ 

3 2AX.IHA.31X. AH AND.32X.1HA/ 

A 2AX.IHA.23X.20H MARGARET L. JOHNSON. 2AX. IHA/ 

9 2AX.lHA.iex.30H COMPUTER SCIENCES COR PORA T ION. 19X. IHA/ 

6 2AX.lHA.20X.26ri MOUNTAIN VIEW. CALIFQRNI A.21X. IHA ) 

1CC6 FORMAT(2AX,IHa,25X.IAH OOCUMENTED BY.28X.1HA) 

10C7 FORMAT) 2AX. IHA, 23X.19H STEPHEN S. S TAHARA. 2SX. IHA/ 

1 2AX.1HA, 1AX.39H NIELSEN ENGINEERING AND RESEARCH. INC .. lAX, IHA/ 

2 2AX.1HA.20X.26H MOUNTAIN VIEW. CALIFORNIA. 21X.1HA) 

C 

C THE MAIN PROGRAM DOES NO COMPljTATIONS 

C ALL COMPUTATIONS ARE DONE IN SUBROUTINES CALLED BY 

C TSFDIL. 

C SUBROUTINE ECHINP PROVIDES A LISTING OF ALL DATA 

C CAROS FOR ENTIRE JOB. 


CONTINUE 
CALL READIN 


SUBROUTINE READIN READS ALL INPUT AND CHECKS IT 


SUBROUTINE SCALE RESCALES ALL PHYSICAL VARIABLES TO 
TRANSONIC SIMILARITY FORM 


SUBROUTINE FARFLD stlS FAR FIELD BOUNDARY CONDITIONS. 


SUBROUTINE BODY COMPUTES AIRFOIL GEOMETRY AND PRINTS 
OUT GEOMETRICAL INFORMATION 


SUBROUTINE CUTOUT REMOVES MESH POINTS FROM THE INPUT 
MESH. CALCULATIONS ARE DONE FIRST ON COARSE MESH, 


TSPOIIi 


AND THEN ON PROGRESSIVELY REFINED MESHES UNTIL 
INPUT MESH IS ACHIEVED. 

CALL CUTOUT 

SUBROUTINE GUESSP INITIALIZES P ARRAY 

CALL GUESSP 

SUBROUTINE DIFCOE CALCULATES FINITE DIFFERENCE 
eOUATIDN COEFFICIENTS WHICH DEPEND ON MESH SIZE. 

CALL DIFCOE 

SUBROUTINE SET8C ADJUSTS THE AIRFQR SLOPE BOUNDARY 
CONDITION FOR THE CURRENT X Y MESH. ALSO, THE LIMITS 
ON I AND J INDICIES FOR SOLVING THE DIFFERENCE 
EOUATIONS ARE SET. 

CALL SETBC 

SUBROUTINE SOLVE EXECUTES THE MAIN RELAXATION 
SOLUTION OF THE DIFFERENCE EOUATIONS 

CALL SOLVE 

IF FINAL MESH HAS BEEN REACHED, RESULTS ARE PRINTED 
OUT IN FINAL FORM. IF NOT, INTERMEDIATE RESULTS 
ARE PRINTED OUT AND THE MESH IS REFINED. THE ABOVE 
SEQUENCE OF CALCULATIONS ARE THEN REPEATED 
IFdREF .LE. 0) GO TO i 
IF (ABORT) GO TO 5 

SUBROUTINE FRINTl PRINTS OUT BODY PRESSURE 
DISTRIBUTION. 

CALL PklNTl 

SUBROUTINE REFINE ADOS MESH POINTS 

CALL REFINE 

REPEAT SEQUENCE OF RELAXATION CALCULATIONS 

CALL DIFCOE 
CALL SETBC 
CALL SOLVE 

IF FINAL MESH HAS BEEN REACHED. RESULTS ARE PRINTED 
OUT IN FINAL FORM. IF NOT. INTERMEDIATE RESULTS 
ARE PRINTED OUT AND THE MESH IS REFINED. THE ABOVE 
SEQUENCE OF CALCULATIONS ARE THEN REPEATED 
IFdREF .LE. 0) 60 TO 6 
IF (ABORT) GO TO 9 
CALL PRINTl 
CALL REFINE 
CALL DIFCOE 
CALL SETBC 
CALL SOLVE 

RELAXATION SOLUTION IS COMPLETED 

CONTINUE 

PRINTOUT FINAL INFORMATION 

CALL PRINT 

IF (IREF .GT. 0 ) CALL REFINE 
IF (IREF .GT. 0 ) CALL REFINE 

STORE SOLUTION FOR NEXT CASE OR ON TAPE 3 

CALL SAVEP 

RETURN TO READIN TO CONFUTE NEXT CASE OR TERMINATE 
CALCULATIONS. 

GO TO 1 
END 


TSFOIL 86 
TSFOIL B7 S 
TSFOIL as !S 
TSFOIL 89 iS 
TSFOIL 90 g 
TSFOIL 91 H 
TSFOIL 92 • 
TSFOIL 93 
TSFOIL 94 
TSFDIL 95 
TSFOIL 96 
TSFOIL 97 
TSFOIL 98 
TSFOIL 99 
TSFOIL 100 
TSFOIL 101 
TSFDIL 102 
TSFDIL 103 
TSFOIL 104 
TSFOIL 105 
TSFOIL 106 
TSFOIL lOT 
TSFOIL 106 
TSFOIL 109 
TSFDIL 110 
TSFOIL 111 
TSFOIL 112 
TSFOIL 113 
TSFOIL 114 
TSFOIL 115 
TSFOIL 116 
TSFOIL IIT 
TSFOIL 118 
TSFOIL 119 
TSFDIL 120 
TSFOIL 121 
TSFOIL 122 
TSFDIL 123 
TSFOIL 124 
TSFDIL 125 
TSFDIL 126 
TSFOIL 127 
TSFOIL 128 
TSFDIL 129 
TSFOIL 110 
TSFDIL 131 
TSFDIL 132 
TSFOIL 133 
TSFOIL 134 
TSFOU 135 
TSFDIL 136 
TSFDIL 137 
TSFDU 138 
TSFDIL 139 
TSFDIL 140 
TSFOIL 141 
TSFOU 142 
TSFOU 143 
TSFDIL 144 
TSFOIL 145 
TSFOU 146 
TSFOIL 147 
TSFDU 148 
TSFOU 149 
TSFDU ISO 
TSFOU 151 
TSFDIL 152 


SUBROUTINE ANGLE 

COMPUTES THETA AT EVERY MESH POINT. 

CALLED BY - FARFLD. 

COMMON / COHl/ IMIN . IHAX , lUP . lODWN . ILE 

1 ITE . JMIN . JMAX . JUP . JlOW 

2 JTDP . JBQT 

COMMON / CDN2/ AK . ALPHA . DUB . GAMl . RTK 

LOGICAL AMESH 

COMMON / C0H4/ XlNdOO) , YIN(IOO), AMESH 

COMMON /C0M12/ F . H . HALFPI .PI . RTKPOR 

1 TWOPI 


ANGLE 2 

ANGLE 3 

ANGLE 4 

CONI 2 

coni 3 

CDMl 4 

CQH2 2 

COM4 2. 

CQH4 3 

CDH12 2 

C0H12 _3 


REAL JET 

cannaN /cdhi6/ alphao > alphai , alphaz , xsins > 

1 DHESAO f OHEGAl > OHEGAZ , JET 

COHRON /C0h33/ THETA( lOOtlOO) 

C SUBROUTINE TO CORPUTE THE ANGLE THETA AT 

C EACH HESH point. 

RZPI • 1.0 / TJOPI 

DO 20 I'lHlN.IHAX 

XX • XIN(l) - XSING 

00 10 J'JMIN.JRAX 

YY - YINIJ) * RTK 

R • S0RT(YIN(J)**Z * XXAXX) 

ATN > ATANZ(YY.XX) 

0 • PI - S1GN(PI»YYI 
THETAIJ.II • -tATN t O) * RZPI 
IF ( R .LE. 1.0 I THETAN.II • THETA(J.l) * R 
10 CONTINUE 
ZO CONTINUE 
RETURN 
END 


CDHlb Z 
C0R16 3 
C0R16 A 
COR33 Z 
ANGLE 11 
ANGLE IZ 
ANGLE 13 
ANGLE lA 
ANGLE IS 
ANGLE 16 
ANGLE 17 
ANGLE IS 
ANGLE 19 
ANGLE ZO 
ANGLE Z1 
ANGLE Z2 
ANGLE Z3 
ANGLE ZA 
ANGLE ZS 
ANGLE Z6 
ANGLE Z7 
angle ZS 


FUNCTION ARF 1X1 

C EVALUATES ERF WITH AN ERROR .LT. l.SE-7 BY RATIONAL 

C APPROXIMATION 7.1.26 OF HANDEOOR OF RATH. FUNCTIONS 

C U. S. DEPT. OF CORHERCE. NSS APPL NATH SER SS. 

C CALLED BY - AYNESH. 

OIHENSION CIS) 

DATA C /1.061A05AZ9,-1,A531520Z7.1.AZ1A137A1. -.28AA96736. 

1 .Z5ASZ9S9Z/ 

Y • X 

IF 1 X .LT. 0.0 I Y ■ -Y 
IF I Y .LT. 10. I GO TO 10 
ARF • 1.0 
GO TO 30 
10 CONTINUE 

T • 1.0 / (1.0 ♦ .3Z75911AYI 
POLY • 0.0 
DO 20 I'l.S 

POLY - (POLY ♦ C(II) * T 
ZO CONTINUE 

ARF ■ 1.0 - POLY P EXP(-Y*Y> 

30 CONTINUE 

IF (X .LT. 0.01 ARF ■ -ARF 

RETURN 

END 


ARF Z 

ARF 3 

ARF A 

ARF i 

ARF 6 

ARF 7 

ARF a 

ARF 9 

ARF 10 

ARF il 

ARF 12 

ARF 13 

ARF lA 

ARF 16 

ARF 16 

ARF 17 

ARF 16 

ARF 19 

ARF ZO 

ARF Z1 

ARF 22 

ARF 23 

ARF ZA 

ARF ZS 

ARF Z6 

ARF 27 

ARF ze 


SUBROUTINE AYNESH 



AYHESH 

2 

COMPUTES 

ANALYTICAL X AND Y HESH POINTS. 


AYHESH 

3 

CALLED BY 

- READlN. 


AYHESH 

h 

COhNON / COHl/ 

IHIN 

f IHAX . lUP > lOOWN . 

ILE f 

COHl 

Z 

L 

ITE 

, JHIX JHAX , JUP f 

JLQU p 

COMl 

1 


JTOP 

t JSOT 


COHl 

4 

LOGICAL 

AHESH 



CONA 

Z 

COHNON / COHA/ 

XIN(IOO) 

M YIN(lOO). AHESH 


COHA 

3 

INTEGER 

PSTART 



COHll 

2 

LOGICAL 

PSAVE 



CONll 

3 

COHNON /CONll/ 

ALPHAO 

> CLOLD . . OELTAO > DUBO . 

EHACHO t 

COHll 

4 

1 

IHIHO 

> IHAXO , IHAXI r JHINO . 

JMAXO r 

COHll 

5 


JHAXI 

j PSAVE f PSTART » T1UE(6). 

TITLEQCBI# 

COHll 

6 

i 

VOLO 

. XOLDdOOl.YOLOliaOl 


COHll 

7 

COHNON /CCH12/ 

F 

r H t HALFPI , PI , 

RTKPOP f 

C0H12 

1 


TWOPI 



COHl 2 

3 

INTEGER 

BCTYPE 



C0HZ8 

2 

COHNON /C0HZ8/ 

BCTYPE 

. CIRCFF , FHINV 1 POR > 

ClftCTE 

COHZB 

3 

COHNON /C0H3d/ 

BXH(AOI) 

, RESTI3) 


AYHESH 

10 





AYHESH 

11 

OIHENSION XHIAOll , BX(IOO) 


AYHESH 

12 




JH* - JB2 / 2 
FJ • JtIJk 

IF (BCTYPF .NE. 1) GO TO 
Cl - CFl 

C2 • CF2 

C3 • CF3 

GO TO 

‘iH CONTINUE 
Cl - CTl 

C2 • CT2 

C3 • CT3 

CONTINUE 

OET* • 1.0 ! (FJ*C1I 

IF IBCTYPF .69. 11 DET* ■ l.'j / HFJ + 1.0l*Cll 
C • C3 / (T*N(H*LFPI*nETi»FJ) l*»C2 
DO BO 1>1. JNI 
J • JN* + I 

ET*I • I ♦ 06T* 

TINUl ■ C * (T*N(HALFPI*ETlin**C2 
YINIJ-2*I+I) . -YINIJI 
Bb CONTINUE 
RETURN 
END 


AYNESH 99 
AYHESH 100 
AYNESH AOl 
AYHESH 102 
AYHESH 103 
AYHESH 109 
AYHESH 105 
AYHESH tO« 
AYHESH 107 
AYHESH loa 
AYHESH 109 
AYHESH 110 
AYHESH 111 
AYHESH 112 
AYHESH 113 
AYHESH llA 
AYHESH U5 
AYHESH 116 
AYHESH 117 
AYHESH lie 
AYHESH 119 
AYHESH 120 
AYHESH 121 


BEOCK DATA BLKDI 2 


8LKDT 3 

8LR0T 9 


cohnoK 

P<102.101) 

7xudo> # r(ioo) 



BLANK 

2 

COHHQN / COHl/ 

IHIN > 

IMAX f lUP 1 

I DOWN > 

ILE > 

COHl 

2 

1 

ITE . 

JMIN f JMAX 1 

JUP . 

JLQW . 

COMl 

3 

2 

JTOP . 

j3or 



COHl 

A 

CQHHQN { CQH2/ 

AH > 

ALPHA # DUe » 

GANl « 

RTK 

COM2 

2 

LOGICAL 

ABORT 




COM3 

2 

COnHQN t C0ri3/ 

IREF . 

ABORT f ICUT > 

KSTEP 


CGH3 

3 

LOGICAL 

AHESH 




COMA 

2 

COnHON / CC-H4/ 

XINtlOO) . 

YlNdOOIf AMESH 



COHA 

3 

COhUQN / COMii/ 

XOIFFI 100) 

rYDIFFllOO) 



C0H5 

2 

COMMON / C0H6/ 

FLUOO) . 

FXUlOOd FUaOQ) # 

FXU(IOO). 


C0H6 

2 

1 CAHBER(IOO). 

THICK(100)»V0L » 

XFOILIIOOI 

> IFQIL 

C0M6 

3 

COMMON / C0M7/ 

CJUP # 

CJUPX t CJLQU > 

CJLOWl 


C0M7 

2 

common / COMS/ 

CVERGt » 

DVERGE > IPRTER # 

HAXIT . 


COM3 

2 

1 

wE<n r 

EPS 



CQMd 

3 

INTEGER 

0CFDIL 




C0H9 

2 

CGMMDN / C0M9/ 

3CF01L ^ 

NL « NU p 

XL(IOO) > 

XUIIOO) > 

C0M9 

3 

1 

ruioo) , 

YUdOOl $ RIGF 



CQM9 

A 

LOGICAL XGROIN.YGRDIN 




COMIO 

2 

COHHON /CQHIO/ 

rFREE (100» 

« YTUN(IOO) « XKRUPPdOO» 9 GAM 9 

COMIO 

3 

1 

JMXF 1 

JMXT 9 XGPDIN # 

YGRDIN 


CDMIO 

A 

INTEGER 

PSTART 




COHU 

2 

LOGICAL 

PSAVE 




COMll 

3 

COHHON /COHll/ 

ALPHAQ » 

CLOLO f DELTAD , 

DUBO . 

EMACHO 9 

conn 

A 

1 

IMINO # 

IMAXO t IMAXI # 

JHINO > 

JHAXO 9 

COHll 

5 

2 

JMAXX , 

PSAVE 9 PSTART > 

riTLEIB). 

T1!LE0( 

COMll 

6 

3 

VQLO » 

XQLOdOOJfYOLDdCO) 



COHU 

7 

COHHON /C0H12/ 

F * 

H 9 HALFPI f 

PI > 

RTKPOR « 

CQM12 

2 

1 

ThOPl 




C0H12 

3 

COHHON /CDH13/ 

CDFACT » 

clfact , CHFACT # 

CPFACT > 

CPSTAR 

CQH13 

2 

lOGICAL 

FCR • 

KUTTA 



COHLA 

2 

common /CGH19/ 

CLSET , 

FCR 9 KUTTA » 

UCIRC 


CQHIA 

3 

COHHON /C0H15/ 

3 ^ 

BETAO 9 8ETAI » 

BETA2 > 

PS 10 9 

C0M15 

2 

1 

PSll f 

PSI2 



C0H15 

3 

REAL JET 





COMib 

2 

COMMON /C0M16/ 

ALPHAQ « 

ALPHAI 9 ALPHA2 9 

XSING . 


C0H16 

3 

1 

OMEGAO f 

OHEGAl 9 0ME6A2 # 

JET 


C0M16 

A 

COMMON /C0H17/ 

CYTGLC » 

CYY8LD 9 CrYBLU 0 

CYYBUC > 

CYYBUO > 

CDM17 

2 

1 

CTYBUU # 

FXLGC(100}#FXUBC<100) 


C0M17 

a 

LOGICAL 

OUTERR 




C0ML8 

2 

COMMON YCOMie/ 

ERROR » 

11 >12 . 

lERRDR > 

JEAROR » 

COHie 

3 

1 

OUTcRR > 

EHUI 100.2)' . 

VCIlOO) . 


COH10 

A 

2 

MI # 

OCIRC . POLO(100.2) 


caniB 

5 

COMMON /C0M19/ 

DlAGUOO>f 

RHS(IOO). SUB(IOC). 

SUPIlOO) 


C0N19 

2 

COHHON /C0N20/ 

XHIDdOO^ 

YHID(IOO) 



CQH20 

2 

COHHON /COH22/ 

CXC(ICC) / 

CXL(IOO). CXRIlOO). 

CXXCIlOO). 

CXXLdOOJf 

C0M22 

2 

1 

CXXRaOO)* 

CKIOO) 



CDM22 

3 

COHHON /C0H23/ 

CYYCaOO># 

CYYO(IOO).CYYUIIOO) 

> IVAL 


C0H23 

2 

COMMON /C0M29/ 

DTOPUOOI# 

DBOT(100)>DUP(100). 

ODOWN(LOO) 


CDH2A 

2 

1 

VTOP<100># 

yBaT(ioa).vuPiioo). 

VDOWN(IOO) 


C0M2A 

3 

COHHON /COH25/ 

CPL(AOO) > 

CPUUOO) 



C0H25 

2 


CCHHDN /C0H26Y PJUHPUOO) 

lOGICAL PHYS 

INTEGER PRTFLO . SIHOEF 

COHHON /CDH27/ CL > DELTA , DELRT2 

1 PHYS . PRTFLO , SIHOEF 

2 YFACT 

INTEGER BCTYPE 

COHHON /CDH28/ BCTYPE , CIRCFF > FHINV 

COHHON /C0H32/ BIGRL > IRL > JRL 

COHHON /C0H33/ I HETA ( 100. 100) 


C0N26 2 

C0H27 2 

C0H27 3 

> EHACH > EHRDOT t COH27 9 

. SONVEL , VFACT , C0H27 5 

C0H27 6 

C0H2S 2 

f POR . CIRCTE C0H2B 3 

CQN32 2 

C0H33 2 








BLKDT 

35 

DATA 

BCFOIL t ^ / 9 

BCTYPE / 1 

/ . PSTART III, 


8LKDT 

36 

1 

PRTFLO / 1 / f 

SIHOEF / 3 

/ 



6LK0T 

37 

DATA 

PHYS /.T, / f 

PSAVE / ,F 

• / 0 FCR 

/ .T. / . 


BLKDT 

38 

I 

KUTTA f *T» /# 

ABORT / .T 

. /. AHESH / .F, / 


BLKDT 

39 

DATA 

EHACH /f70/ » 

DELTA /.115/ f ALPHA 

/•X2/ 0 


BLKDT 

90 

1 

AK /0*0/f 

GAH/I.A /0 

REGF/O«O/0 

EPS/.2/ 


BLKDT 

91 

DATA 

CLSET /0.0/> CVERGE/. 00001/. DVERGE/10./. 


BLKOT 

92 

1 

F / 0.0 /. 

H / 0. 3 

/ 0 POR 

/ 0 . 0 /. 


BLKDT 

93 

1 

NCIRC/l.O/. HE/1. 6.1. 9>: 

• 95/ 



BLKDT 

99 

DATA 

XGRDIN y«F,/0 

YGROIN /.F. 

/ 



BLKOT 

95 

DATA 

IHAXI/ 77 /. JMXF/56/, MAXir/500/. 



BLKDT 

96 

1 

NL / 75 /, 

NO / IOC 

/ 0 IPRTER / 10 / 


BLKOT 

97 

DATA 

PI /3«1A1S9265/ > HALFPI 

/1.57D796325/ 0 


BLKDT 

9B 

1 

TUQPI/ 6«2631B531/ 




BLKOT 

99 

DATA 

IMIN /!/ , 

JHIN III 

. ICUT 

m 


BLKOT 

50 

DATA 

CPU/ico*o,o/.CPL/iao*o.o/ 




BLKOT 

51 

DATA 

YIN /1QOAQ*0 i9 

JHAXI /lOO 

/ . JHXT 

/9B / 


BLKDT 

52 

DATA 

XKRUPP / -1«07£ 

-.950 , 




BLKDT 

53 

1 

-t62:> 0 

-.7 > 

-.575 , 

-.95 . 

-.35 . 

BLKDT 

59 

2 

-.25 » 

-.175 . 

-.125 , 

-.076 . 

-.0525 . 

BLKOT 

55 

3 

-.035 0 

-.0225 > 

-.015 . 

-.0075 . 

-.0025 . 

BLKOT 

56 

A 

•0025 0 

.0075 . 

.0125 . 

.0175 . 

.0225 . 

BLKOT 

57 

5 

•0275 0 

.0325 > 

.0375 > 

.095 . 

.055 . 

BLKOT 

58 

6 

• 065 # 

.075 > 

.085 . 

.0975 . 

.115 . 

BLKOT 

59 

7 

•1A0625 0 

.171B75. 

.203125. 

.239375. 

.265625. 

BLKOT 

60 

fl 

•296675 1 

.32B125. 

.359375, 

.390625. 

.921875. 

BLKDT 

61 

9 

•A53125 0 

.989375. 

.515625. 

.596875. 

.578125, 

BLKDT 

62 

1 

•509375 0 

.690625. 

.671875. 

.703125. 

.739375. 

BLKDT 

63 

2 

•765625 0 

.796875. 

.828125. 

.859375. 

.885 , 

BLKOT 

69 

3 

• 9 • 

.915 > 

.93 . 

.995 . 

.96 . 

BLKOT 

65 

A 

• 975 0 

. 

1.0 , 

1.01 . 

1.025 . 

BLKDT 

66 

5 

1.05 0 

1.09 . 

1.15 , 

1.225 . 

1.3 , 

BLKDT 

67 

6 

1*A 0 

1.5 . 

1.625 . 

1.75 . 

1.875 . 

BLKOT 

6B 

7 

23*0*0 f 





BLKOT 

69 

DATA 

YFREE ( -5,2 0 

-9.9 > 

-3.6 , 

-3.0 . 

-2.9 , 

BLKOT 

70 

1 

-1*95 j 

-1.6 . 

-1.35 , 

-1.15 . 

-.95 , 

BLKOT 

71 

2 

-•BO 0 

-.65 . 

-.55 . 

-.95 . 

-.39 , 

BLKOT 

72 

3 

-•3A 0 

-.30 > 

-.27 , 

-.29 . 

-.21 . 

BLKOT 

73 

A 

-«1B 0 

-.15 , 

-.125 . 

-.1 . 

-.075 . 

BLKDT 

79 

5 

- .05 0 

- .03 . 

- .01 , 

.01 , 

.03 , 

BLKDT 

75 

6 

• 05 0 

.075 . 

.1 , 

.125 . 

.15 . 

BLKDT 

75 

7 

• IB J 

.21 . 

.29 , 

.27 , 

.30 , 

BLKDT 

77 

fl 

• 3A 0 

.39 . 

.95 . 

.55 . 

.65 , 

BLKOT 

78 

9 

• a 0 

.95 > 

1.15 , 

1.35 , 

1.60 . 

BLKDT 

79 

1 

1*95 0 

2.9 > 

3.0 , 

3.6 . 

9.9 , 

BLKOT 

BO 

2 

5.2 0 

9990.9 / 




BLKOT 

81. 

DATA 

YTUN / -2*0 0 

-l.B . 

-1.6 , 

-1.9 . 

-1.2 , 

BLKDT 

82 

1 

-1.0 0 

-.8 , 

-.65 . 

-.55 . 

-.95 , 

BLKOT 

83 

2 

-.39 0 

-.39 . 

-.30 . 

-.27 , 

-.29 , 

BLKOT 

89 

3 

-.21 0 

-.IB . 

-.15 , 

-.125 . 

-.1 . 

BLKOT 

85 

A 

- .075 f 

- .05 > 

- .03 , 

- .01 . 

.01 , 

BLKDT 

66 

5 

• 03 0 

.05 > 

.075 . 

.1 . 

.125 , 

BLKDT 

87 

6 

• 15 0 

.18 , 

.21 . 

.29 , 

.27 f 

BLKDT 

68. 

7 

• 3 0 

.39 . 

.39 , 

.95 , 

.55 . 

BLKDT 

89 

6 

• 65 0 

.8 . 

1.0 , 

1.2 . 

1.9 , 

BLKOT 

00 

9 

1.6 0 

l.B > 

2.0 . 

52*0.0 / 


BLKDT 

01' 

DATA 

XU / 0.0000060 

0.000167. 

0.000391, 

0.000799, 

0.001907. 

BLKDT 

02 

1 

0.0021530 

0,003331. 

0.005336. 

0.008698. 

0.019583. 

BLKDT 

03 

2 

O*O23A6l0 

0.033891. 

U. 090887. 

0.053973. 

0,056921. 

BLKDT 

09 

3 

O.O56A560 

0.059966. 

0.061995. 

0.062909. 

0.065925, 

BLKOT 

05 

A 

0.0687850 

0.071982. 

0.079007, 

0.075322. 

0.076603. 

BLKDT 

06 

5 

0.0776620 

0.079112. 

0.080995, 

0.081819. 

0.083269, 

BLKOT 

or 

6 

O.OaABAlf 

0.086702. 

0.088898. 

0.091378. 

0.099913. 

BLKOT 

08 

7 

0*0963080 

0.103109. 

0.109010. 

0.116299. 

0.1Z59S2. 

BLKDT 

09 

6 

0.1366350 

0.150037. 

0.165853. 

0.189699. 

0.195177, 

BLKDT 

100 

9 

0.2063610 

0.218299.' 

0.230813. 

0.299097. 

0.257917. 

BLKDT 

101 

1 

0.2723710 

3.287910. 

0.302990. 

0.319057. 

0.335SSS, 

BLKOT 

102 

2 

O.352A210 

0.369591. 

0.386995. 

0.909133. 

0.921391. 

BLKDT 

103' 

3 

O.A367O60 

0.956013. 

0.973296. 

0.990393. 

0.507292. 

. BLKOT 

109 

A 

0.5238810 

0.539536. 

0.559867. 

0.569823. 

0.589351. 

BLKOT 

105 

5 

O.596AO50 

0.611936. 

0.629909. 

0.637273. 

0.698935. 

BLKDT 

106 

6 

0.6590160 

0.668987. 

0.678321. 

0.687012. 

0.695090. 

BLKDT 

107 

7 

0.7069360 

0.728906. 

0.738699. 

0.761390. 

0.777010, 

BLKDT 

108 

e 

O«792ZAl0 

0.809068. 

0.829992. 

0.836953. 

0.657188, 

BLKDT 

109 


a 



S»l 


1 



YU 


XL 


Of a7»62l> 

0.B9S26BI 

0.913686, 

0.927686, 

0.939806, 

0.9$Z002f 

0.971769, 

0.96910D, 

0.997860, 

1.000000/ 

0,000787f 

0.003092, 

0.00653S, 

0.006137, 

0.007683, 

Of 009096# 

0,010675, 

0.012803, 

0.015607, 

0.019626, 

0f02^<i41» 

0.029035, 

0.031698, 

0.035966, 

0.036837, 

0f037277i 

3.037700, 

0.03B103, 

0.038697, 

0.039276, 

0f0399e6# 

0.050625, 

0.061195, 

0.061683, 

0.061756, 

Of0^20X9i 

0.062276, 

0.062539, 

0.062806, 

0.063079, 

0.0^3360# 

0.D637D0, 

0.066072, 

0.066697, 

0.066989, 

0f0^9996# 

0.066312, 

0.067156. 

0.D6B132, 

0.069301, 

0.090626# 

0.0520B9, 

0.053663, 

0.055351, 

0.056210, 

0.097068# 

0.05791B, 

0.056751, 

0.059559, 

0.060335, 

0.061060# 

0.061751, 

0.062381, 

0.062967, 

0.063665, 

0.063667. 

0.066213, 

0.066673, 

0. 066666, 

0.066733, 

0.064735# 

0.066651, 

0.066677, 

0.066218, 

0.063871, 

0.063436. 

0.062965, 

0.062376, 

0.061731, 

0.061016, 

0.060232# 

C. 059369, 

0.058696, 

0.057562, 

0.056650, 

0.059721# 

0.056791, 

0.053B67, 

0.052965, 

0.052086, 

0.050722# 

0.068065, 

0.0666B0, 

0.063661, 

0.061053, 

0.036606# 

0.03576B, 

0.032958, 

0.030775, 

0.026956, 

0.023361# 

0.01BB6B, 

0.015750, 

0.012956, 

C. 010567, 

0.000213# 

0.006S59, 

0.001620, 

0.009293, 

0.000000/ 

D.QOOOOO# 

0.000012, 

0.000063, 

0.000183, 

0.0C0269, 

0.000346# 

0.000655, 

0.000680, 

O.OOIDLI, 

0.001681, 

0.001679# 

0.002316, 

0.003055, 

0.006201, 

0.006767, 

0.009779# 

0.007035, 

0.006265, 

0.OO9969, 

0.012286, 

0.019346# 

0,019276, 

0.025335, 

3.029379, 

0,039095, 

0.052516. 

0.062669, 

0.073329, 

0.083290, 

0.099822, 

0.110963. 

0,160987, 

0.167166, 

0.202933, 

0.228511, 

0.247099. 

0.263995, 

0.2B2O67, 

0.297065, 

0.310167, 

0.324079# 

0.366S72, 

0.363502, 

0.387666, 

0.606692, 

C.42e>3O0# 

0.65C016, 

0.676378, 

0.521837, 

0.569863, 

0.978612# 

0.605305, 

0.623679, 

0.662152, 

0.657563, 

0.671212# 

0.690360, 

0.706891, 

0.726686, 

C. 766683, 

0.760502# 

0.786892, 

O.B01169, 

0.819187, 

0.838566, 

0.696617# 

0.679631, 

0.903723, 

0.926506, 

0.963652, 

0.990660# 

25*0.0/ 

0,973623, 

0.9861B7, 

0.996SB2, 

1.000000, 

0.000000# 

-0,000700, 

-0.0013B5, 

>0.002868, 

-0,003330, 

-0.003800# 

-0.006379, 

-0.005199, 

-0.006133, 

-0.007183, 

-0.007933# 

-O.OOB676, 

-0.009776, 

-0.011206, 

-0.011815, 

-0.012661# 

-0.013983, 

-0.016962, 

-0.016175, 

-0.017636, 

-0.019336# 

-0.02125B, 

-0.023836, 

-0.025373, 

-0.028636, 

-0.032423# 

-0.036B60, 

-0.037182, 

-0.039656, 

-0.061862, 

-0.044483# 

-0.067017, 

-0.06929S, 

-3.351663, 

-0.052606, 

-0.052899# 

-0.053062, 

-0.053117, 

-0.053027, 

-0.052869, 

-0.092562# 

-0.051951, 

-0,051216, 

-0,050013, 

-0. 069006, 

'-0.047499# 

-0.065601, 

-0.063288, 

-0.038336, 

-0.036916, 

-0.031104# 

-0.027333, 

-0.026661, 

-0.021856, 

-0,019517, 

-0.01T429# 

-0.016327, 

-0.011771, 

-0.009228, 

-0.006537, 

-0.003B6B# 

-0.002086, 

-0.000526, 

0.000950, 

0.002227, 

0.003224# 

0.003865, 

0.006212, 

0.006067, 

0.003657, 

0.003067# 

29*0.0/ 

0.002262, 

0.001329, 

0.000376, 

0.000000, 


blko't 

110 

BLKDT 

111 

BLKDT 

112 

BLKDT 

113 

BLKDT 

116 

BLKOT 

115 

BLKDT 

116 

SLKOT 

117 

BLKOT 

lie 

BLKOr 

119 

BLKOT 

120 

BLKOT 

121 

BLKOT 

122 

BLKDT 

123 

BLKDT 

126 

BLKOT 

125 

BLKDT 

126 

BLKOT 

127 

BLKDT 

128 

8LKDT 

129 

BLKDT 

130 

8LKDT 

131 

BLKDT 

132 

BLKDT 

133 

BLKDT 

136 

BLKOT 

135 

BLKDT 

136 

BLKDT 

137 

BLKOT 

138 

BLKDT 

139 

SLKOI 

160 

BLKDT 

161 

BLKDT 

162 

BLKDT 

163 

BLKDT 

166 

BLKDI 

165 

BLKOT 

166 

BLKOT 

167 

BLKDI 

168 

BLKDT 

169 

BLKDT 

150 

8LK0T 

151 

BLKDI 

152 

3LKJT 

153 

BLKOT 

156 

BLKOT 

155 

BLKOT 

156 

BLKOT 

157 

BLKOT 

158 

BLKDT 

159 

BLKDT 

160 

BLKDT 

161 

BLKDT 

162 

BLKOT 

163 

BLKOT 

166 


SURROUTINt BCEND 

C SUBROUTINE BCENO NODIFIES THE OIAG AND RHS VECTORS 

C OH EACH I LINE IN THE APPROPRIATE HAY TO INCLUDE THE 

c BOUNDARY CONDITIONS AT JBOT AND JTOP. 

C CALLED BY • SYORi 

COHHON P (102>101)iX<100) , YdOOl 

CDNNON / coni/ inIN , IMAX , lUP , lOOUN > ILE . 

1 ITE > jniN > JMAX i JUP > JLOH > 

2 JTOP , JBOT 

CONHQN / COna/ AR > ALPHA j DUB . GAhl t RTK 

connoN / cons/ xdiffiiooi.ydiffiiooi 

COHMON /C0H19/ DlAGIlOOd RHSUnoii SUBdOOIt SUPdOO) 

COnnON /C0n23/ CYYCdOai> CYYOdOO)>CYYUdOa)( ival 
INTEGER BCTYPE 

connoN /conza/ bctype t circff < fhinv t por > circte 

I • IVAL 

C BRANCH TO APPROPRIATE ADDRESS FOR BCTYPE 

GO TO dOf20>30«4D>5a«60) , BCTYPE 
C BCTYPE • 1» FREE AIR 

10 CONTINUE 


BCEND 2 
BCEND 3 
BCEND A 
BCENO S 
BCEND 6 
BCEND 7 
BLANK 2 

coni 2 
CONI 3 

com A 
conz 2 

C0H5 2 
CDH19 2 
CDN23 2 
C0H28 2 
conza 3 
BCENO IS 
BCEND 16 
BCENO 17 
BCEND 16 
BCEND 19 
BCEND 20 


C OIRICHLET boundary CONDITION FOR SUBSONIC FREESTREAM 

IF (AK .GT. 0,0) return 

C NEUNAN BOUNDARY CONDITION FOR SUPERSONIC FREESTREAN 

OFACL • -CYYDIJBOT) » RTK • XOIFF(l) 

DFACU ■ -CYYU(JTOP) A RTK ♦ XDIFFII) 

RFACL ■ DFACL • (PIJNtHfl) - PUHIN, 1-1)1 
RFACU • DFACU » IPtJHAX,!) - P(JHAX,I-1)) 

GO TO 9S 

C BCTYPE - 2> SOLID HALL 

20 CONTINUE 

C NEUnAN BOUNDARY CONDITION • 0. 

C NO nODIFICATIDN NECESSARY TO OIAG OR RHS 

DFACL'O, 

DFACU'O. 

RFACL'O. 

RFACU>C. 

GD TO 9S 

C BCTYPE • 3, FREE JET 

30 CONTINUE 

C DIRICHLET BOUNDARY CONDITION 

IF (AK ,LT, 0.0) 60 TO 31 
PJHlN • -.75 • CIRCFF 
PJHAX ■ -.25 ♦ CIRCFF 
GO TO 32 

31 CONTINUE 
PJNIN • O.D 
PJNAX • D.O 

32 CONTINUE 
GO TO 90 

C BCTYPE ■ A, IDEAL SLOTTED HALL 

AO CONTINUE 

C NEUNAN BOUNDARY CONDITION 

OFACL "-FNINV * CVYOUBDI) 

DFACU •-fhinv * CYYU(JTOP) 

IF (AK .LT, 0.01 60 TO A1 

RFACL • DFACL * I ,75 * CIRCFF * PIJBOT.D) 

RFACU • DFACU A ( .25 * CIRCFF a P(JTOP.I)) 

GO TO A2 
A1 CONTINUE 

RFACL • DFaCL a P( JBOT. I) 

PFACU • DFACU A P(JTDP.I) 

A2 CONTINUE 
GO TO 95 

C BCTYPE • 5, porous/perforated HALL 

SO CONTINUE 

IFIPOR .GT. 1.51 GO TO 55 

C NEUNAN BOUNDARY CONDITION FOR POR .LT. 1.5 

DFACL • -CYYDIJBOT) A PQR A xOIFf(l) 

DFACU • -CYYU(JTOP) A PQR A XDIFFII) 

RFACL • DFACL A (P(JHIN.I) - P(JNIN.I-ll) 

RFACU • DFACU A (P(JNAX.l) - P(JNAX.I-D) 

GO TO 95 
55 CONTINUE 

C DIRCHLET BOUNDARY CONDITION FOR POR .GT. 1.5 

IF (I ,NE. lUP) RETURN 

C SET values of P ON BOUNDARY BY INTEGRATING PX USING 

C OLD VALUES OF POTENTIAL 

PJNIN • P(JHIN.IUP) 

TERN • -.5 / (POR A (Y(jniN) - Y(JNINAl))) 

DO 57 II-IUP.IDOHN 

P(JHIN.II) ■ P(jniN.H-l) - TERN A (X(II)-X( tl-lll A 
1 (PI jniN.iD+PijniN, ii-i)-P(jniNAi,ji)-p(jHiNAi,ii-i) ) 

57 CONTINUE 

PJNAX • P(JNAX.IUP) 

TERN ■ .5 / (POR A (T(jnAX) - Y(JHAX-1>II 
DO 58 Il-IUP.IDOHN 

P(JNAX.It) • PIJNAX.II-l) ' TERNAIXdl) - X(ll-D) A 
1 (PIJNAX, II)AP(jnAX.II-l)-P(JHAX-l.III-P(JNAX-l.tI-l>) 

53 CONTINUE 

RHS(JBOT) ■ RHS(JBOT) - (CYYOI JBOT ) A( P( JBOT-1. I )-P JNIN ) ) 

RHS(JTOP) • RHS(JTOP) - ( CYYUI JTDP |A(P( JTOPAl.n-PJIlAX) ) 

RETURN 

C BCTYPE • 6. GENERAL HALL BOUNDARY CONDITION 

C DIFFERENCE ESUATIONS FOR THIS BOUNDARY CONDITION 

C HAVE NOT YET BEEN HORKED OUT. USER MUST INSERT 

C INFORNATION NEEDED FOR CALCULATION 

60 CONTINUE 

HRITE(6>iaOO) 

1000 FORHATOAHlABNORNAL STOP IN SUBROUTINE BCENO/ 

1 2AH BCTYPE-6 IS NOT USEABLE) 

STOP 

C 

C OIRICHLET BOUNDARY CONDITIONS 


BCEND 

21 

BCEND 

22 

BCEND 

23 

BCENO 

26 

BCEND 

25 

BCEND 

26 

BCENO 

27 

BCENO 

2B 

BCENO' 

29 

BCEND 

30 

BCEND 

31 

BCENO 

32 

BCEND 

33 

BCENO 

36 

BCEND 

35 

BCENO 

36 

BCEND 

37 

BCEND 

38 

BCEND 

39 

BCEND 

60 

BCENO 

61 

BCEND 

62 

BCEND 

63 

BCENO 

66 

BCEND 

65 

BCENO 

66 

BCEND 

67 

BCEND 

68 

BCEND 

69 

BCEND 

SO 

BCEND 

51 

BCEND 

52 

BCEND 

53 

BCENO 

56 

BCEND 

55 

BCEND 

56 

BCEND 

57 

BCEND 

SB 

BCENO 

59 

BCEND 

60 

BCENO 

61 

BCEND 

62 

BCENO 

63 

BCEND 

66 

BCEND 

65 

BCEND 

66 

BCEND 

67 

BCENO 

68 

BCEND 

69 

BCENO 

70 

BCEND 

71 

BCENO 

72 

BCEND 

73 

BCEND 

76 

BCEND 

75 

BCEND 

76 

BCEND 

77 

BCEND 

78 

BCEND 

79 

BCEND 

80 

BCENO 

ai 

BCENO 

B2 

BCEND 

63 

BCEND 

B6 

BCEND 

85 

BCEND 

86 

BCENO 

87 

BCEND 

88 

BCEND 

89 

BCEND 

90 

BCEND 

91 

BCENO 

92 

BCEND 

93 

BCEND 

96 

BCENO 

95 

1C END 

96 

BCEND 

97 

BCENO 

98 

BCENO 

99 

BCENO 

100 

BCEND 

101 

BCENO 

102 

BCENO 

103 

ICEND 

106 

BCEND 

105 


90 CONTINUE 



DHSIJBDI) - RHStJBDTI - ( CYYD ( JBDT 1 •( PJHIN-P ( JBOT-1, 1 1 I t 
' BHS(JTOP) ■ RHSIJIDPl - (CYYU( JTOP)»(PJH*X-P(JTaP*l,Il)l 
PtTURN 
C 

c n£uhan boundary conditions 

95 CONTINUE 

DIA6<J80T) • DIACIJBQTI * DFACL 


BCEND 106 
BCEND i07 
BCEND lOa 
BCEND 109 
BCEND 110 
BCEND 111 
BCEND 112 


OIAGUIOP) • DUGIJTOPI ^ DFACU BCEND 113 
RHSIJBOTI ■ RHStJBOn - RFACL + C YYO( JBOT) +P UBOT-l,1 1 BCEND 119 
RrtS(JIOPI ■ RHStJIOPI - RFACU ♦ CYYUI JTCP) *P ( JT0P+1» 1 1 8CEN0 115 
RETURN BCEND 116 
tHO BCEND 117 


SUBROUTINE BODY 

COMPUTES BOOT GEOMETRY INFORMATION FOR BOUNDARY 
CONDITIONS AND OUTPUT INFORMATION. FOUR CHOICES OF 
BOOT DESCRIPTION ARE aYAILASLE As FOLLONS 
BCFOU - 1 NACA OOXX AIRFOIL 
aCFOIL • 2 PARABOLIC ARC AIRFOIL 
BCFOIL • 3 AIRFOIL ORDINATES READ IN 
BCFOIL • 9 EXTRA ADDRESS FOR USERS CHOICE 
BUOY ORDINATES AND SLOPES ARE COMPUTED AT THE INPUT 
X MESH LOCATIONS AND ARE DIVIDED BY THE THICKNESS 
RATIO DELTA. THE BODY VOLUME* CAMBER* AND THICKNESS 
ARE ALSO COMPUTED. 

ACTUAL BOUNDARY CONDITION IS SET IN SUBROUTINE SETBC 
CALLED BY - TSFOIL. 

COMMON / COMl/ IMIN . IMAX « lUP * IDOWN > ILE > 

1 ITE > JMIN > JMAX . VUP * JLON * 

2 JTDP , JflOT 

COHNON / C0M2/ AK . ALPHA > OUB > GAMl , RTK 

LOGICAL AMESH 

COMMON / C0M9/ XIN(ICU) * YIHdOUl* AMESH 
COMMON / C0M6/ FL(IOO) * FXLdOOl* FUdOOt * FXUdODl. 

1 CAMBERllOOl* THiCKdOOl.VOL * XFOILllOOW IFOIL 

INTEGER BCFOIL 

common ! C0H9/ BCFOIL > NL > NU > XLdOCI * XU(IOO) * 

1 YLIlOO) * YUdOO) * RIGF 

LOGICAL PHYS 

INTEGER PRIFLC > SIHDEF 

COMMON /COM27/ CL i DELTA * 0ELRT2 * EMACH > EMROOT * 

1 PHYS . PRTFLD . SIMOEF . SONVEL * VFACT * 

2 YFaCT 

COMMON /SPLN/ A12001 * 8(2001 . DYl > 0Y2 * K1 * 

1 KZ . XP * YP ,0YP 

C SET NUMBER OF POINTS ON AIRFOIL 

IFOIL ■ m - ILE + 1 

C ZERO ALL THICKNESSES AND SLOPES 

DO 10 I«IMIN*IMaX 

Fum • 0. 

Full • 0. 

FXIMII • 0. 

FXLd) - 0, 

1C CONTINUE 

C BRANCH TO APPROPRIATE AIRFOIL SPECIFICATION 

60 TO (100*200*300.9001* BCFOIL 
IQQ CONTINUE 

C BCFOIL ■ 1 

C FORMULA FDR NACA OOXX SHAPE 

IC ■ 0 

00 125 I • ILE. ITE 
IC ■ IC ♦ 1 
Z • XINd) 

XFOIUICl • Z 
RTZ - SQRTtZ) 

Z2 • Z*Z 
Z3 ■ Z*Z2 
Z9 ■ Z<Z3 

FU(IC) • 1.9B95*RTZ * .63*Z - 1.75e*Z2 + 1.9215*23 - ,5D75*Z9 
FL(IC) ■ -FUdCI 

FXUdCI • .79225/RTZ - .63 - 3.516»Z + 9.Z695*Z2 - Z.03*Z3 
FXLdC) • -FXUdC) 

125 CONTINUE 
GO TO 500 
2C0 CONTINUE 

C BCFOIL - 2 

C PARABOLIC ARC AI RF31L*******a l-CONVEX . 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 


BODY 2 

BODY 3 

BODY 9 

BODY 5 

BOOT 6 

BODY 7 

BODY S 

BODY 9 

BODY 10 

BOOT 11 

BODY 12 

BODY 13 

BODY 19 

BODY 15 

BOOT 16 

COMl 2 

COMl 3 

COMl 9 

COM2 2 

C0M9 2 

C0H9 3 

C0M6 2 

COMB 3 

C0M9 2 

C0M9 3 

C0M9 9 

C0H2T 2 

CQM27 3 

CDM27 9 

CQH27 5 

C0H27 6 

BODY 23 

BODY 29 

BODY 25 

BODY 26 

BODY 27 

BODY 24 

BOOT 29 

BODY 30 

BODY 31 

BODY 32 

BODY 33 

BODY 39 

BODY 35 

BODY 36 

BODY 37 

BODY 36 

BODY 39 

BODY 90 

BODY 91 

BODY 92 

BODY 93 

BODY 99 

BODY 95 

BODY 96 

BODY 97 

BODY 96 

BODY 99 

BODY 50 

BODY 51 

BODY 52 

BODY S3 

BODY 59 

BODY 55 

BODY 56 

BODY 57 




RETURN 

END 


C 

C 

C 

C 


C 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 


c 


1C 

15 


c 


20 

25 


C 


30 


C 


C 

C 


35 


SUBROUTING CDCOLE 

CONFUTES Tht DRAG BT HOMENTUN INTEGRAL NETHDO. 
Integrates around a contour enclosing the body and 
ALONG ALL SHOCKS INSIDE THE CONTOUR 
called by - PRINT. 


COMMON 


PdOZ.lOll. 

>X(100) . 

Y(IOO) 

COMMON 

/ CDMl/ 

IMIN . 

IMAX , 

lUP 

I 


ITE > 

JMIH , 

JMAX 

2 


JTOP , 

JBOT 


CONNON 

/ C0M2/ 

AK , 

ALPHA , 

DOB 

COMMON 

/ C0H6/ 

FL(IGO) . 

FXLllOO). 

FOdOOl 

1 

CAHBER(LOO). 

THICK(IOO) 

i.VOL 

COMMON 

/ C0H7/ 

CJUP . 

CJUPl , 

CJLOW 

COMMON 

/CDM13/ 

cofact > 

CLFACT , 

CMFACT 

LOGICAL 


PHYS 



INTEGER 


PRTFLD I 

SIMDEF 


COMMON 

7COM27/ 

CL . 

DELTA , 

0ELRT2 

1 


PHYS . 

PRTFLO . 

SIMDEF 

2 


YFACT 




CONNONYCONSO/ KlOOli ARG(IODI) RESTI20A) 
GAH123 • GAN1F2./3. 


lOOWN t ILE 

JUP , JLOit 

GAHl , RTK 

EAU(IOO). 
XFOlLdUO). IFDIL 
CJLQnI 

CPFACT , CPSTAR 


EHACH I ENROOT 
SONVEL > VFACT 


SET LOCATIONS OF CONTOUR BOUNDARIES 


UPSTREAH BOUNDARY 

IF AK • 0.0 CDCOLE NILL NOT BE CALLED. 
ANACH NAY NOT BE • 1.0 . 

IF(AK .GT. 0.) lU • (ILE ♦ ININ)*. 5 
IF(AK .LT. 0.) lU • lUP 

TOP AND BOTTOM BOUNDARIES 
SUBSONIC FREESTREAN 

SET JB,JT TO INCLUDE AS MUCH OF SHOCKS AS POSSIBLE 

JT • JMAX - 1 
JB • JHIN * 1 
IF (AK .GT. 0.1 GO TO 30 

SUPERSONIC FPEESTRbAli 

SET JB.JT TO INCLUDE ONLY SUBSONIC PART OF 
DETACHED SOW WAVE 


FIND BOW SHOCK WAVE 
ISTOP • ILE - 3 

CALL FlNOSKdUP.ISrOPjJUPiiaOWI 
IF( IBOW .LT. 01 GO TO 325 
IF (IBOW .LT. L) GO TO 350 

SEARCH UP SHOCK TO FIND TIP OF SUBSONIC' REGION 

ISK • IBOW 

JSTART ■ JUP A 1 

JT • JUP “ 1 

DO 10 J • jstart.jmak 

JT • JT ♦ 1 

ISKOLD • ISK 

CALL NEWISKdSKDLD. J> ISK) 

IFdSK .LT. 0) GO TO 15 

CONTINUE 

CONTINUE 

SEARCH DOWN SHOCK To FIND TIP OF SUBSONIC REGION 

ISK • IBOW 
JB ■ JLDU * 2 
OD 20 J • JNIN.JLOW 
JJ • JLDW - J A JNIN 
JB • JB - 1 
ISKOLD • ISK 

CALL NEWISK(lSKOLD.JJiISK) 

IFdSK .LT. 0) GO TO 25 

CONTINUE 

CONTINUE 

SAVE I LOCATION OF BOW SHOCK WAVE ON LOWER BOUNDARY 

IBDW • ISKOLD 
CONTINUE 

DOWNSTREAM BOUNDARY 
ID • (ITE A INAXI * .5 
IF(PX(IT£41f JUP) .LT. SONVEL) GO TO 50 

TRAILING EDGE IS SUPERSONIC. PLACE DOWNSTREAM 
BOUNDARY AHEAD OF TRAILING EDGE TO AVOID TAIL SHOCK 

I - ITE 
CONTINUE 


BODY 155 
BODY 155 


CDCOLE 2 
CDCOLE 3 
CDCOLE 5 
COCOLE 5 
CDCOLE 6 
CDCOLE 7 
blank 2 

COHl 2 
COHl 3 

COHl 5 
COM2 2 

COMB 2 
CUMb 3 
COM? 2 
COMIB 2 
C0M27 2 

CDM27 3 
C0M27 5 

C0H27 5 

C0M27 6 

CDCOLE 15 
CDCOLE Ib 
CDCOLE 17 
CDCOLE 16 
CDCOLE 19 
CDCOLE 20 
CDCOLE 21 
CDCOLE 22 
CDCOLE 23 
CDCOLE 25 
CDCOLE 25 
CDCOLE 26 
CDCOLE 27 
CDCOLE 2B 
CDCOLE 29 
CDCOLE 30 
CDCOLE 31 
COCOLE 32 
CDCOLE 33 
CDCOLE 35 
CDCOLE 35 
CDCOLE 36 
CDCOLE 37 
CUCOLE 38 
CDCOLE 39 
CDCOLE 50 
COCOLE 51 
CDCOLE 52 
CDCOLE 53 
CDCOLE 55 
CDCOLE 55 
CDCOLE 56 
CDCOLE 57 
CDCOLE 58 
CDCOLE 59 
CDCOLE 50 
CDCOLE 51 
CDCOLE 52 
CDCOLE 53 
CDCOLE 55 
CDCOLE 55 
CDCOLE 56 
CDCOLE 57 
CDCOLE 56 
CDCOLE 59 
CDCOLE 60 
CDCOLE 61 
CDCOLE 62 
CDCOLE 63 
CDCOLE 65 
CDCOLE 65 
CDCOLE 66 
CDCOLE 67 
CDCOLE 6B 
CDCOLE 69 
CDCOLE 70 


I • I-l 

IF(Xd) .GT. .75) GD TO 35 
ID • I 

50 CONTINUE 
C 

C ALL BOUNDARIES ARE FIXED 

C 

C COMPUTE INTEGRALS ALONG BOUNDARIES 

C 

C INTEGRAL ON UPSTREAM BOUNDARY 

COUP • 0. 

IF(AK .LT. 0.) GO TO 120 
L • 0 

DO 110 J • JB.JT 
L • L*1 
KL) ■ Y(J) 

U • PXdU.J) 

V ■ PTdU.J) 

ARGIL) .(lAK - GAM123*U)5U*U - V*V)*.5 
lie CONTINUE 

CALL TRAPd.ARG.L.SUH) 

COUP • 2.5CDFACT+SUH 
120 CONTINUE 

C integral on top BOUNDARY 

I • 0 

00 130 I • lU.IO 
L ■ L A I 

Z(L I • Xd) 

ARG(L) • -PX(I.JT)*PY(I.JTI 
130 CONTINUE 

CALL TRAP(Z.ARG.L>SUH) 

COTOP ■ 2.*C0FACT*SUM 

C INTEGRAL ON BOTTOM BOONDARY 

1 • 0 

DO 150 I • lU.ID 
L ■ L A 1 

ARG(L) ■ PX(I.JB)*PY(I, JB) 

150 CONTINUE 

CALL TRAPlZiARGtL.SUM) 

CDBOT • 2.AC0FACTASUM 

C integral ON DOWNSTREAM BOUNDARY 

L • 0 

00 ISO J • JBfJT 
L . L A 1 
Z(L) • Y(J| 

U ■ PX(ID,J) 

C IF FLOW SUPERSONIC. USE BACKWARD DIFFERENCE FORNULA 

IF(U .GT. SONVEL) U • PX(I0~1,J) 

V • PYdO.J) 

ARC(L) • ((GAH123*U - AK)AU*U A V*V)*.5 
ISC CONTINUE 

CALL TRAPIZ.ARG.L.SUM) 

CDOOWN • 2.AC0FACT*SUM 

C INTEGRAL ON BODY BOUNDARY 

CDBOOY - 0. 

IFIID .GT. ITE) 60 TO 200 
ILIM • ITE A 1 
L • 0 

DO 160 I*ID.IL1M 
IB • I-ILE A 1 
L - L A 1 
Z(L) • Xd) 

UU ■ CJUPAPX(I.JUP) - CJUP1*PX(I,JUPA1) 

UL • CJLDwPPXd. JLQW) - CJLQWl»PXd»JLDW-l) 

ARG(L) ■ 'OUPEXUdB) A ULPFXL(IB) 

160 CONTINUE 

CALL TRAP(Z.ARG> L.SUM) 

CDBDDY . 2.ACDFACT5SUM 
zee CONTINUE 
C 

c INTEGRATION ALONG SHOCK WAVES 

CDWAVE - 0. 

LPRTl - 0 
LPRT2 « 0 
NSHOCK • 0 

IF(AK .GT. 0.) GO TO 220 

C INTEGRATE ALONG DETACHED BOW WAVE 

NSHOCK • NSHOCK A 1 
LPRTl • 1 
LPRTZ - 1 
L ■ 0 
ISK • IBOW 
DO 210 J ■ JB.JT 
L • L A I 
ISKOLD • ISK 

CALL NEWISKdSKOLO.J.lSK) 


CDCOLE 

71 

COCOLE 

72 

CDCOLE 

73 

COCOLE 

75 

CDCOLE 

75 

CDCOLE 

76 

CDCOLE 

77 

CDCOLE 

78 

CDCOLE 

79 

CDCOLE 

BO 

CDCOLE 

ai 

CDCOLE 

B2 

CDCOLE 

83 

CDCOLE 

B5 

CDCOLE 

85 

CDCOLE 

86 

CDCOLE 

87 

CDCOLE 

68 

CDCOLE 

89 

COCOLE 

90 

CDCOLE 

91 

COCULE 

92 

CDCOLE 

93 

CDCOLE 

95 

CDCOLE 

95 

CDCOLE 

96 

CDCOLE 

97 

CDCOLE 

98 

CDCOLE 

99 

CDCOLE 

100 

CDCOLE 

101 

CDCOLE 

102 

CDCOLE 

103 

CDCOLE 

105 

CDCOLE 

105 

CDCOLE 

106 

CDCOLE 

107 

COCOLE 

108 

COCOLE 

109 

CDCOLE 

110 

CDCOLE 

111 

CDCOLE 

112 

COCOLE 

113 

CDCOLE 

115 

COCOLE 

115 

CDCOLE 

116 

CDCOLE 

117 

CDCOLE 

118 

CDCOLE 

119 

CDCOLE 

120 

CDCOLE 

121 

CDCOLE 

122 

CDCOLE 

123 

CDCOLE 

125 

CDCOLE 

125 

CDCOLE 

126 

CDCOLE 

127 

CDCOLE 

128 

CDCOLE 

129 

CDCOLE 

130 

CDCOLE 

131 

CDCOLE 

132 

CDCOLE 

133 

CDCOLE 

135 

CDCOLE 

135 

CDCOLE 

136 

CDCOLE 

137 

CDCOLE 

138 

CDCOLE 

139 

CDCOLE 

150 

CDCOLE 

151 

CDCOLE 

152 

CDCOLE 

153 

COCOLE 

155 

CDCOLE 

155 

CDCOLE 

156 

CDCOLE 

157 

CDCOLE 

158 

CDCOLE 

159 

CDCOLE 

ISO 

CDCOLE 

151 

CDCOLE 

152 

CDCOLE 

153 

CDCOLE : 

155 

CDCOLE 

155 

CDCOLE 156 



^<L) • Y<J) 

ARGtL) • (PXIlSKtlfJ) - PXI [SK-2( 

CONTINUE 

CALL TR*P(Z>ARG>L>SUN) 

CDSK ■ -GAHI/6.*CDFACT*SUH 
CDWAVE • CDnAVE 4 CDSK 
CALL PRTSK(Z>ARG>Lf NSHOCKf CDSKtLPRTI) 

CONTINUE 

INTEGRATE ALONG SHOCKS ABOVE AIRFOIL 

ISTART ■ ILE 
2Z5 CONTINUE 

CALL FINDSK(I3TART>ITEf JUPt ISKt 
IFdSK .LT. 0) GO TO Z30 
C SHOCK WAVE FCUNO 

ISTART « ISK ♦ 1 
NSHOCK • NSHOCK * 1 
IPRTl ■ 0 
L ■ 1 
ZUl • 0. 

ARGIL) ■ ICJUP4I PXl ISK+li JUPI - PX 1 ISK-2» JUP ) ) 

» - CJUP1*IPXIISK+1, JUP+l) * PX1ISK-2»JUP*1)))*43 

DO 230 J • JUP > JT 
L - L*1 
ItU • VU) 

ARGIL) • IPXIISK+lfJI - PXI ISK-2fJ))*T3 
ISKCLO • ISK 
JSK • J + 1 

CALL NEWISKIlSKOLOr JSKrISKI 
IFIISK .LT. 0) GO TO 2G0 
IFIISK .GT. ID) GO TO 233 
230 CONTINUE 
233 CONTINUE 
LPRU ■ 1 
ZAO CONTINUE 

CALL TRAPIZ.ARG.L.SUH) 

CDSK ■ -GAH1/6.»C0FACT*SUN 

CDWAVE • CDWAVE * COSK 

CALL PRTSKIZ. ARG> Lt NSHOCK. C DSK, L P RTl ) 

IFILPRTl .ED. 1) LPRT2 • 1 
C RETURN TO FIND NEXT SHOCK 

GO TO 225 

C INTEGRATE ALONG SHOCKS BELOW AIRFOIL 

25U CONTINUE 

ISTART • ILE 
260 CONTINUE 

CALL FINDSKI ISTART. ITE. JLOW.ISK) 

IFIISK .LT. 0) GO TO 300 
C . SHOCK WAVE FOUND 

ISTART • ISK t 1 
NSHOCK ■ NSHOCK + I 
LPRTl - 0 
L • 1 
ZIL) > 0. 

ARGIL) • ICJL0WAIPXIISK41.JL0W) - PXI ISK-Z. JLOW) ) 

* - CJLOWIAIPXI ISK+1. JLOW-1 I - PXI ISK-2.JL0W-1 I ) )**3 

DO 270 JJ • JB.JLOW 
J • JLOW 4 ja - JJ 
L • L41 
ZIL) ■ YU) 

ARGIL) • IPXIISK41.J) - PXIISK.-2.J))*«3 
ISKOLO ■ ISK 
JSK • J - 1 

CALL NEWISKIISKOLO. JSK. ISK) 

IFIISK .LT. 0) GO TO 260 
IFIISK .GT. ID) GO TO 275 
270 CONTINUE 
275 CONTINUE 
LPRTl ■ 1 
2B0 CONTINUE 

CALL TRAPIZ.ARQ.L.SUN) 

COSK • -GAH1/5.4CDFACI4I-SUN) 

COWAVE - CDWAVE 4 CDSK 
CALL PRTSKIZ. ARG.L.NSHOCK.CDSK.LPRTII 
IFILPRTl .EO. 1) LPRT2 ■ 1 
C RETURN TO FIND NEXT SHOCK 

GO TO 260 
3C0 CONTINUE 
C 

C INTEGRATION ALONG SHOCKS IS CONPLETE 

C 

C PRINTOUT CD INFORMATION 

XU • XIIU) 

XO ■ XI ID) 

YT ■ YIJT)*YFACI 
YB - YIJB)*YFACT 

COC • COUP 4 CDTOP 4 CDBOT 4 CODOWN 4 CDBODY 



CDCOLE 157 
CDCOLE 158 
CDCOLE 159 
CDCOLE 160 
CDCOLE 161 
COCOLE 162 
CDCOLE 163 
CDCOLE 16A 
CDCOLE 165 
CDCOLE 166 
COCDLE 167 
CDCOLE 16B 
CDCOLE 169 
CDCOLE 170. 
COCOLE 171 
CDCOLE 172 
CDCOLE 173 
COCOLE 17A 
CDCOLE 175 
CDCOLE 176 
COCDLE 177 
CDCOLE 176 
CDCOLE 179 
COCOLE 160 
CDCOLE 181 
CDCOLE 182 
CDCOLE 183 
CDCOLE ISA 
CDCOLE 185 
CDCOLE 186 
CDCOLE 167 
CDCOLE IBS 
CDCOLE 189 
CDCOLE 190 
COCOLE 191 
CDCOLE 192 
CDCOLE 193 
CDCOLE 19A 
CDCOLE L95 
CDCOLE 196 
CDCOLE 197 
CDCOLE 198 
CDCOLE 199 
CDCOLE 200 
CDCOLE 201 
CDCOLE 202 
CDCOLE 203 
CDCOLE 20A 
CDCOLE 205 
CDCOLE 206 
CDCOLE 207 
CDCOLE 208 
COCDLE 209 
CDCOLE 210 
COCOLE 211 
CDCOLE 212 
CDCOLE 213 
CDCOLE 21A 
CDCOLE 215 
CDCOLE 216 
CDCOLE 217 
CDCOLE zie 
CDCOLE 219 
CDCOLE 220 
CDCOLE 221 
CDCOLE 222 
COCOLE 223 
CDCOLE 22A 
CDCOLE 225 
COCOLE 226 
CDCOLE 227 
COCOLE 226 
CDCOLE 229 
CDCOLE 230 
CDCOLE 231 
CDCOLE 232 
CDCOLE 233 
CDCOLE 23A 
CDCOLE 235 
CDCOLE 236 
CDCOLE 237 
COCOLE 238 
CDCOLE 239 
COCDLE ZAO 
COCOLE 2A1 
CDCOLE 2A2 


CD • CDC 4 COWAVE 
WRITEI6.1001) 

WRITEI6.10CZ) XU. COUP. XO.CODOWN. YT. CDTOP. YB.CDBOT 
IFIXD .LT. 1.) WRITEI6.1003) XO.COBODY 

WRITEI6.100A) COC 
WR1TEI6.100S) NSHOCK. COWAVE 

IFINSHOCK .GT. 0 .AND. LPRT2 .EO. 0) WRITEI 6. 1007 ) 

IFINSHOCK .GT. 0 .AND. LPRT2 .EO. 1) WRITEI 6. lOOS ) 

WRITEI6.ia06) CD 
RETURN 

325 CONTINUE 

C SHOCK IS TOO CLOSE TO BODY TO DO CONTOUR INTEGRAL. 

C WRITE MESSAGE AND RETURN 

ULE • PXIILE.JUP) 

IFIULE .GT. SONVEL) WRITE 16. 1011 ) 

IFIULE .LE. SONVEL) WRITEI6.1012 ) 

CD ■ ORAGtCDFACT) 

WRITEI6.1013) CD 
RETURN 

. 350 WRITE I6.101A) 

CD'DRACICOFACT) 

WRITEI6.1013) CD 
RETURN 

1001 F0RHATI1H1.55X.23HDRAG COEFFICIENT OUTPUT/ 56X. 231 1H4) //. 

I 60H calculation OF DRAG COEFFICIENT BY MOnENTUM INTEGRAL METHOD) 
1C02 F0RMATI27H0B0UNDARIES OF CONTOUR USE0.15X.18HCONTRIBUT1QN TO CD/ 

4 16H UPSTREAM X • . F12 .6. 15 X.8HC0UP ..F12.6/ 

* 16H downstream X -.F12.6.15X.8HCDD0WN ..F12.6/ 

* 16H TOP Y -.FIZ.A.ISX.BHCDTOP *.F12.6/ 

* 16H BOTTOM Y •> F12. 6. 15X. 8HCDBCT ..F1Z.6) 

1003 F0RMATI16H BODY AFT OF X -. F12.6. 15X. SHCDBODT >>F12.6) 
lOOA F0RMATI1SX.36HT0TAL CONTRIBUTIONS AROUND CONTOUR '.F12.6) 
logs FORMAT (lOHOTHERE ARE. I3.3BH SHOCKS INSIDE CONTOUR. TOTAL CDWAVE 
A F12.6) 

1006 FORMATI51HOORAG CALCULATED FROM MOMENTUM INTEGRAL CD *. 

<■ F12.6) 

10C7 FORMATIA3HONOTE - ALL SHOCKS CONTAINED WITHIN CONTOUR/ 

* 30H CDWAVE EQUALS TOTAL WAVE DRAG) 

1008 FORMATI 52H0N0TE • ONE OR MORE SHOCKS EXTEND OUTSIDE OF CONTOUR/ 

4 38H COWAVE DOES NOT EQUAL TOTAL WAVE DRAG) 

1011 F0RMAT131H1SH0CK WAVE IS ATTACHED TO BODY/ 

4 33H MOMENTUM INTEGRAL CANNOT BE DONE/ 

* ASH DRAG OBTAINED FROM SURFACE PRESSURE INTEGRAL/) 

1C12 FORMATIAIHIDETACHEO SHOCK WAVE IS TOO CLOSE TO BODY/ 

* 33H MOMENTUM INTEGRAL CANNOT BE DONE/ 

4 ASH DRAG OBTAINED FROM SURFACE PRESSURE INTEGRAL/) 

1013 FORMAIIAHOCD..F12.6) 

lOlA F0RMATI1H1.17X.19H44444 CAUTION 44444/16X.16HSOLUTION MAY BE > 

1 7HINVALI0//A6H DETACHED SHOCK WAVE IS TOO CLOSE TO UPSTREAM . 

2 BHBOUNDARY/11X.32HMQHENTUM INTEGRAL CANNOT BE D0NE/5X. 

3 AAHDRAG OBTAINED FROM SURFACE PRESSURE INTEGRAL) 

END 


CDCOLE 2A3 > 

CDCOLE 2AA 
CDCOLE 2AS g 

CDCOLE ZAO B 

CDCOLE 2A7 ^ 

CDCOLE 2A8 
CDCOLE 2A9 
CDCOLE 250 
CDCOLE 251 
COCOLE 252 
CDCOLE 253 
CDCOLE 25A 
CDCOLE 255 
COCOLE 256 
CDCOLE 257 
CDCOLE 256 
COCOLE 259 
CDCOLE 260 
CDCOLE 261 
CDCOLE 262 
CDCOLE 263 
CDCOLE 26A 
CDCOLE 265 
CDCOLE 266 
CDCOLE 267 
CDCOLE 266 
COCOLE 269 
CDCOLE 270 
COCOLE 271 
COCOLE 272 
CDCOLE 273 
CDCOLE 27A 
CDCOLE 275 
CDCOLE 276 
CDCOLE 277 
COCOLE 276 
CDCOLE 279 
CDCOLE 260 
CDCOLE 2B1 
CDCOLE 262 
CDCOLE 263 
CDCOLE 26A 
CDCOLE 265 
CDCOLE 266 
CDCOLE 267 
COCOLE 266 
COCDLE 269 
CDCOLE 290 
COCDLE 291 
CDCOLE 292 
COCOLE 293 
COCDLE 29A 


SUBROUTINE CKMESH 

c CHECK X MESH AND ADJUST TO CONTAIN ODD NO. OF 

C POINTS BEFORE TAIL AND ODD NO. AFTER TAIL. 

C ITE IS INCLUDED IN BOTH COUNTS, 

c CKMESH IS CALLED ONCE BY READIH. 

COMMON / CONI/ IMIN . IMAX . lUP . lOOWN . ILE . 

1 ITE . JMIN > JMAX . JUP . JLOW . 

2 JTOP > J60T 

LOGICAL ABORT 

COMMON / C0M3/ IREF . ABORT . ICUT > KSTEP 

LOGICAL AMESH 

COMNDN / COMA/ XINIIOO) > YlNIiOO). AMESH 

IF IICUT .GT. 0) GO TO A 
IREF ■ -1 
RETURN 
A CONTINUE 

C TEST TO BE SURE THAT ADJUSTING THE NO. OF 

C POINTS WONT HAKE IMAX OR JMAX LARGER THAN 100. 

IF UMAX .LE. 98 .AND. JMAX .LE. 98) CO TO B 
WRITE 16.100) 

IREF ■ -1 
RETURN 


CKMESH 2 
CKMESH 3 
CKMESH A 
CKMESH 5 
CKMESH 6 
CKMESH 7' 
CKMESH B 
CONI 2 
CONI 3 
COMl A 
COM3 2 - 
COM3 3' 
COMA 2 
COMA 3 
CKMESH 12 
CKMESH 13 
CKMESH lA 
CKMESH 15 
CKMESH .16 
CKMESH IT" 
CKMESH 18 
CKMESH 19 
CKMESH 20 
CKMESH 21 
CKMESH 22 
CKMESH 23 



8 CONTINlt 

IF (nODlITF-lHIN'tl/ 2) >ME. 0) GO IQ 20 
C FDD EXTRA MESH POINT AHEAD OF AIRFOIL. 

LP • IHAX ♦ WIN + 1 
DO 10 l>l)iIN>WAX 
L ■ LP - 1 
XINtLI • XlN(L-lt 
10 CONTINUE 

IMAX - INAX ♦ 1 

XIN(IHIN) ■ 2, ♦ XlN(IrtIN+ll - XIN(I«INt2) 

CALI ISLIT I XIN ( 

20 CONTINUE 

C ADO EXTRA NESH POINT AFTER AIRFOIL. 

IF (NDDCWAX-ITEAl. 2) .NE, 3) GO TO 30 
INAX ■ IHAX -f 1 

XINdNAXI ■ 2. » XINlIHAX-1) - XINtIMAX-2l 
30 CONTINUE 

C CHECK Y NESH AND ADJUST ID CONTAIN EXEN NO. OF 

C POINTS ABOVE AND BELOW SLIT, 

IF WOD<JLUW-JNIN .2) .NE. 01 GO TO $0 
c ADO Extra nesh point below slit. 

LP - JNAX ♦ JMIN + 1 
DO AO J. join. JNAX 
I ■ LP - J 
YIN(L) • YIN(L-l) 

AO CONTINUE 

JNAX • JMAX A 1 

YIN(JNIN) • 2. a YlN(JNINAl) - YIN(JNINA2) 

CALL JSLIT t YIN I 
50 CONTINUE 

C ADD EXTRA NESH POINT ABOVE SLIT. 

IF (HOO(JNAX-JUP >2) .NE. 01 GO TO 60 
JNAX • JNAX A 1 

YIN(JHAX) • 2.0 A Y1N<JNAX>1) - YINIJHAX-2) 

60 CONTINUE 
RETURN 

100 FORHAT(96HO THE HESH CANNOT BE ADJUSTED FOR CUTOUT. BECAUSE IHAX 0 
IR JNAX IS TOO CLOSE TO THE UNIT OF 100./ 

ESX.IOKIREF WAS SET TO 0 ) 


CKNESH 2A 
CKNESH 25 
CKNESH 26 
CKNESH 27 
CKNESH 2B 
CKNESH 29 
CKNESH 30 
CKNESH 31 
CKNESH 32 
CKNESH 33 
CKNESH 3A 
CKNESH 35 
CKNESH 36 
CKNESH 37 
CKNESH 30 
CKNESH 39 
CKNESH AO 
CKNESH A1 
CKNESH A2 
CKNESH A3 
CKNESH AA 
CKNESH A5 
CKNESH A6 
CKNESH A7 
CKNESH AB 
CKNESH A9 
CKNESH 50 
CKNESH 51 
CKNESH 52 
CKNESH 53 
CKNESH 5A 
CKNESH 55 
CKNESH 56 
CKNESH 57 
CKNESH SB 
CKNESH 59 
CKNESH 60 
CKNESH 61 
CKNESH 62 
CKNESH 63 
CKNESH 6A 
CKNESH 65 


SUBROUTINE CPPLDT IX, Y, 2, w. NP) 

C SUBROUTINE CPPLOT PRODUCES A PRINTER PLOT 

C OF critical PRESSURE VS X . 

C CALLED BY - FIXPLT. 

LOGICAL AHESH 

CONNON / CDNA/ XINIICO) . YINIlOO), ANESH 

DINEHSION XIIOL) . YllOll . 2I1C1) . WIlOl) . NI120), ISYNIB) 
DIMENSION A<3) , ICI3) 
data IC/ 1. 102A. 10AB576/ 

DATA ISYN/IH .IHU.IHL.IHB.IH-.IHU.IHL.IHB/ 

C NC IS THE NUMBER OF COLUMNS. 

C NR IS the NUMBER OF ROWS. 

DATA NC /120/ , NR /50/ 

C INITIALIZE RANGES 

IF ( ANESH I go to 3 
NPL • 1 
NPR . NP - I 
NL5 ■ 2 
SO TO 4 
3 CONTINUE 
NPL • 2 
NPR ■ NP - 2 
NL5 • 3 
5 CONTINUE 
HE ■ XINPLI 
HR • X(NPL) 

VB'AHINKYiDfZm.wmi 
VT>AHAXl(Ylll.Zlll.wai ) 

C DETERMINE RANGES 
DO 5 I ■ NIB. NPR 
HL'ANINlIHL.XIl) ) 

HR-ANAXl(HP.X(tl ) 

VB^ANINKVB.YID.ZIII.wIII ) 

VT'ANAXlIVT.Ym ,Z( I).W(II) 

5 CONTINUE 


CPPLOT 2 
CPPLOT 3 
CPPLDT A 
CPPLOT 5 
CPPLOT 6 
CONA 2 

COMA 3 

CPPLOT 8 
CPPLOT 9 
CPPLOT 10 
CPPLOT 11 
CPPLOT 12 
CPPLOT 13 
CPPLOT lA 
CPPLOT 15 
CPPLOT 16 
CPPLOT 17 
CPPLOT 16 
CPPLOT 19 
CPPLOT 20 
CPPLOT 21 
CPPLOT 22 
CPPLOT 23 
CPPLOT 2A 
CPPLOT 25 
CPPLOT 26 
CPPLOT 27 
CPPLOT 28 
CPPLOT 29 
CPPLOT 30 
CPPLOT 31 
CPPLOT 32 
CPPLDT 33 
CPPLOT 3A 
CPPLOT 35 
CPPLOT 36 
CPPLOT 37 



CPPLDT 

38 

C SKIP TO NEW PAGE AND WRITE PLOT HEADING. 

CPPLOT 

39 


CPPLDT 

AO 

WRITEIE. 9001 

CPPLOT 

A1 

VO£L»IVT-VBt/FLDATINRl 

CPPLOT 

A2 

HDEL*<HR>HLI/FLDAT(NC) 

CPPLOT 

A3 

HDELN ■ 1.0 / HDEL 

CPPLOT 

AA 

VL-VT 

CPPLOT 

A5 


CPPLOT 

A6 


CPPLOT 

A7 

DO 100 IROW • l.NR 

CPPLOT 

A8 

VH-VL 

CPPLOT 

A9 

Vl'FLOATINR-lROWXVDELAVB 

CPPLOT 

50 

DO 15 I'l.NC 

CPPLOT 

51 

15 MIII*0 

CPPLOT 

52 


CPPLOT 

53 

DO 30 I -NPL, NPR 

CPPLOT 

5A 

J • NAXOII.NINOINC.IAINTIIXIII-HLI * HDELHIII 

CPPLOT 

55 

Ml) • YUI 

CPPLOT 

56 

AI 2 I ■ zm 

CPPLOT 

57 

A(3t • wll) 

CPPLOT 

58 

DO 20 K>1, 3 

CPPLOT 

59 

IF (AIK) .GT. VHI GO TO 20 

CPPLDT 

60 

IF lAIKI ,GT. VL .OR. (A(KI .LE. VB .AND. IRON .EO. NRI) 

CPPLDT 

61 

1 NIJI ■ MIJ) + ICIKI 

CPPLOT 

62 

20 CONTINUE 

CPPLOT 

63 

30 CONTINUE 

CPPLOT 

6A 


CPPLDT 

65 

DO 90 I-l.NC 

CPPLDT 

66 

J ■ 1 

CPPLOT 

67 

IF (Hill .LT. 1C(3)I 60 TO 70 

CPPLOT 

68 

J . J ♦ A 

CPPLOT 

69 

Hill . N0D(H(n.IC(31l 

CPPLOT 

70 

70 CONTINUE 

CPPLDT 

71 

IF (Mil) .IT. 1CI2I1 SO TO 75 

CPPLOT 

72 

J ■ J + 2 

CPPLOT 

73 

HIM • N0DINm.IC(2M 

CPPLDT 

7A 

75 CONTINUE 

CPPLOT 

75 

IF (HID .LE. 01 CD TO 80 

CPPLOT 

76 

J ■ J + 1 

CPPLOT 

77 

80 CONTINUE 

CPPLOT 

78 

MID ■ ISYNIJ) 

CPPLOT 

79 

90 CONTINUE 

CPPLOT 

80 


CPPLOT 

81 

WRITEI6.901) INII). I>1,NCI 

CPPLOT 

82 

IOC CONTINUE 

CPPLOT 

83 


CPPLOT 

8A 

RETURN 

CPPLOT 

65 


CPPLOT 

66 

900 FDRHATI1H1,3AX,A6HPRINTER PLOT OF CP ON BODY AND DIVIDING STREAM, 

CPPLOT 

87 

1 AHLINE,15X,13HU • C P 1 UPPER 1 / 3SX, 501 IH* ), 15K, 13HL • CPILOUERt/ 

CPPLOT 

88 

2 100X,25HB • CPIUPPER) • CPILOWERl /98X,17H— • CRITICAL CPI 

CPPLOT 

69 

901 F0RJIATtlX,120Al) 

CPPLDT 

90 


CPPLOT 

91 

END 

CPPLOT 

92 



SUBROUTINE CUTOUT 




CUTOUT 

2 








CUTOUT 

3 

c 



SUBROUTINE TO 

REDUCE THE 

NUMBER OF HESH POINTS 

CUTOUT 

A 

c 



FDR THE FIRST 

CUT AT SOLUTION. THE X-NESH AND 

CUTOUT 

5 

c 



Y-NESH WILL BE 

HALVED, AND IF POSSIBLE BE 

CUTOUT 

6 

c 



HALVED AGAIN. 



CUTOUT 

7 

c 




IREF —1, 

CUTOUT SHOULONT HAVE BEEN CALLED 

CUTOUT 

6 

c 



IREF • 0, 

IF NOT HALVED AT ALL. 

CUTOUT 

9 

c 




IREF - 1, 

IF halved 

ONCE. 

CUTOUT 

10 

c 



IREF • 2f 

IF HALVED 

TWICE. 

CUTOUT 

11 

c 



CALLED BY - TSFOIL. 


CUTOUT 

12 








CUTOUT 

13 


COMMON 


PI102,101I,XI100I 

, YllOOl 


BLANK 

2 


COMMON / 

com/ 

IHIK 

» IMAX 

, lUP 

, IDOWN , ILE f 

CONI 

2 


1 


ITE 

» JHIN 

, JNAX 

, JUP , JLOH , 

CONI 

3 


2 


JTOP 

» JBOT 



CONI 

A 


LOGICAL 


A60AT 




C0H3 

2 


COMMON / 

C0M3/ 

IREF 

f ABORT 

, ICUT 

, KSTEP 

COM3 

3 


LOGICAL 


AME$H 




CDHA 

2 


COMMON / 

C0M4/ 

XINCIOQ} 

, YINIIOOI, AHESH 


CONA 

3 


COMMON /COhiO/ 

xniDaoo> 

, YHIDIIOD) 


CDN20 

2 








CUTOUT 

19 




IFCIR8F .NE. -1) GO TO 3 



CUTOUT 

zo 


NESH CANNOT BE REFINEOf 

LOAD XTNfYXN INTO X, Y 

CUTOUT 

21 


DO 1 I • ININ, INAIt 



CUTOUT 

22 


X(I) • XINII) 



CUTOUT 

23 


continue 



CUTOUT 

2^ 


DO 2 J • JNINflHAX 



CUTOUT 

23 


T(Jl • YlNtJI 



CUTOUT 

26 


CONTINUE 



CUTOUT 

27 


IREF • C 



CUTOUT 

za 


RETURN 



Cutout 

29 


CONTINUE 



CUTOUT 

30 


K ■ ININ - 1 



cutout 

31 


DO 10 I*IMINf INAAf 2 



CUTOUT 

32 


K ■ K ♦ 1 



cutout 

33 


XNIDIKI • XlNtll 



CUTOUT 

34 

10 

CONTINUE 



cutout 

35 


INAX ■ IINAX-IHIN) ♦ .3 ♦ ININ 



CUTOUT 

36 


CALL ISLIT I XNIO 1 



cutout 

37 


K • JNIN - 1 



CUTOUT 

38 


J£ • JLOH - 2 



CUTOUT 

39 


DO 15 J>JH1N>JE>2 



CUTOUT 

40 


K • K ♦ 1 



CUTOUT 

41 


YNIOIKI ■ YINIJI 



CUTOUT 

42 

15 

continue 



CUTOUT 

43 


JST - JUP ♦ 1 



CUTOUT 

44 


DO 20 J«JSTiJHAX,2 



CUTOUT 

45 


K • K ♦ 1 



CUTOUT 

46 


YNIDIKl • YINIJ) 



CUTOUT 

47 

20 

CONTINUE 



CUTOUT 

4B 


JKAX • (JNAX-JNIN» » .5 ♦ JNIN 



CUTOUT 

49 


CALL JSllT ( YNIO ) 



CUTOUT 

5C 


IREF • 1 



CUTOUI 

51 


FIRST HALVING 

CUHPLETE. CHECK IF NO. OF POINTS 

CUTOUT 

52 


IS ODD. 



CUTOUT 

53 


IF (ICUT .EOi 1) GO TO 30 



CUTOUT 

54 


IF (H0D(ITE-IHIN+1, 21 .E«. 01 GO 

TO 

1 30 

CUTOUT 

55 


IF (NOC( INAX-ITbAl^E) .EQ. 01 GO 

TO 

30 

CUTOUT 

56 


IF (NOD( JLOM-JNIN f21 .EQ. 01 GO 

TO 

3U 

CUTOUT 

57 


IF (MODI JHAX-JUF >21 .NE. 0) GO 

TO 

60 

CUTOUT 

56 

30 

CONTINUE 



CUTOUT 

59 


only one mesh 

refinement POSSIBLE. 

CUTOUT 

60 


DO 50 I*ININ,IHAX 



CUTOUT 

61 


X(I1 ■ XNIDII) 



CUTOUT 

62 

'lO 

CONTINUE 



CUTOUT 

63 


DO 50 J’JNIN. JNAX 



CUTOUT 

64 


Y(J1 • YNIDUl 



CUTOUT 

65 

50 

CONTINUE 



CUTOUT 

66 


RETURN 



CUTOUT 

67 


ALL POINTS ARE 

ODD so CUT AGAIN, 

CUTOUT 

66 

60 

CONTINUE 



CUTOUT 

69 


K ■ IMIN - 1 



CUTOUT 

70 


DO 70 I-1NIN»IMAX,2 



CUTOUT 

71 


K ■ K •* 1 



CUTOUT 

72 


XIKI • XHIDUl 



CUTOUT 

73 

70 

CONTINUE 



CUTOUT 

74 


INAX . (INAX-ININl ♦ ,5 ♦ ININ 



CUTOUT 

75 


CALL ISLIT ( X 1 



CUTOUT 

76 


K . JNIN - 1 



CUTOUT 

77 


JE • JLON - 1 



CUTOUT 

70 


DO 75 J'JNIN,J£.2 



CUTOUT 

79 


K . X + 1 



CUTOUT 

60 


Y<K1 • YNIDIJl 



CUTOUT 

61 

75 

CONTINUE 



CUTOUT 

62 


JST ■ JUP + 1 



CUTOUT 

83 


DO 80 J>JST>JHAX>2 



CUTOUT 

84 


R ■ X ♦ 1 



CUTOUT 

85 


YIKl • YHIDUl 



CUTOUT 

86 

80 

CONTINUE 



CUTOUT 

37 


JNAX ■ (JHAX-JNINI * .5 ♦ JNIN 



CUTOUT 

36 


CALL JSLIT { Y 1 



CUTOUT 

69 


IREF • 2 



CUTOUT 

90 


RETURN 



CUTOUT 

91 





CUTOUT 

92 


end 



CUTOUT 

93 



SUBROUTINE DIFCOE 




DIFCOE 

2 

C 





OIFCQE 

3 

C 

CONFUTE DIFFERENCE COEFFICIENTS IN FIELD 



DIFCOE 

A 

C 

CALLED BY - TSFDIL. 




DIFCOE 

5 

C 





DIFCOE 

6 


COHNON P(ia2,101I.X(100l , 

mooj 



BLANK 

2 


CONHON / CQNl/ ININ , INAX , 

lUP » 

lOOUN 

, ILE , 

CONI 

2 


1 ITE > JNIN , 

JHAX # 

JUP 

, JlOH > 

CONI 

3 


2 JTOP . JBOT 




CONI 

A 


CONHON / C0N2/ AK , ALPHA > 

DUB * 

GANl 

, RTK 

C0N2 

2 


CONHON / C0H5/ XDIFF ( 100 l.YDIFF 1 lOOl 



CONS 

2 


CONHON / CDN7/ CJUP , CJUPl # 

CJLOU , 

CJLOHl 


C0H7 

2 


COMMON /CDM17/ CYYBLC > CYYBLD > 

CYYBLU , 

CYYBUC 

, CYYBUD , 

CDN17 

2 


1 CYYSUU fFXLBCdOOli 

iFXUaCIlOOl 


CQN17 

3 


common FCOM22/ CXCdOOl t CXLdOOIf 

CXRdOQl, 

CXXC(1001,CXXL(1001, 

C0M22 

2 


1 CXXRdOOd CIUOOI 




C0N22 

3 


COMMON /C0M23/ CYYCdOOI. CYYDIlOOli 

iCYYUIlOOl 

f IVAL 


C0N23 

2 

C 





DIFCOE 

15 

C 

COEFFICIENTS FOR 

IPIX AND 

IPIXX AT 

ININ 

DIFCOE 

16 


CXXUIMINI • 0.0 




DIFCOE 

17 


CXXRdMINl • 0.3 




OIFCOE 

18 


CXXCdHlNI • 0.0 




DIFCOE 

IN 


CXL dPINI . 0.3 




DIFCOE 

20 


CXR dMINI ■ 0.0 




DIFCOE 

21 


CXC (IMINl • 0.3 




OIFCOE 

22 

C 

coefficients for IPIX AND (PIXX FRON I. 

■IHINAl TO 

I-INAX-1 


DIFCOE 

23 


C2 • GAM1A.5 




DIFCOE 

2A 


ISTART - IMlN+1 




DIFCOE 

25 


lEND-IMAX-l 




OIFCOE 

26 


DO 1 I>1START»IEND 




OIFCOE 

27 


DXL-Xdl-Xd-11 




DIFCOE 

2B 


DXR-Xd+lt-Xdl 




DIFCOE 

29 


one • .5 A <Xd+l) - Xd-lll 




DIFCOE 

30 

C 

FOR VC 




DIFCOE 

31 


Cldl> AK/DXC 




DIFCOE 

32 

C 

FOR IPIX 




DIFCOE 

33 


CXLIIl • -C2 / IDXL*DXC) 




OIFCOE 

3A 


CXRIII • C2 / (DXRADXCI 




DIFCOE 

35 


CXCUI ■ -CXLdI - CXRdl 




DIFCOE 

36 

C 

FOR IPIXX 




DIFCOE 

37 


CXXLdI ■ 1.0 / DXL 




DIFCOE 

38 


CXXRdI • 1.0 / OXR 




OIFCOE 

39 


CXXCd) • CXXLIII * CXXRIl! 




OIFCOE 

AO 

1 

CONTINUE 




DIFCOE 

A1 

C 

COEFFICIENTS FOR IPIX AND (PIXX 

AT INAX 


OIFCOE 

A2 


DX • X 1 INAX) - X dHAX~l) 




DIFCOE 

A3 


Q • 1.0 / (DX*0XI 




DIFCOE 

AA 


CKINAXI • AK / DX 




DIFCOE 

AS 


CXK IHAXl • -C2 ♦ 0 




DIFCOE 

A6 


CXRIIHAXI • C2 * 0 




OIFCOE 

A7 


CXCdMAXI - 0,0 




DIFCOE 

A8 


CXXLIIMAXI • 1.0 / OX 




OIFCOE 

A9 


CXXRIIMAXI • 1.0 / OX 




OIFCOE 

50 


CXXC<I^AX> « CXXUIHAXJ 4 CXXIUlMAXI 



DIFCOE 

51 

C 

COEFFlCIENfS F0« 

IPIYY AT 

JNIN. 

OIFCOe 

52 

C 





OIFCOE 

53 


OYU ■ YIJMIN+ll - riJHINI 




OIFCOE 

5A 


CYYDIJMINI • 2.0 / OYU 




DIFCOE 

55 


CYYU(JMIN) • 2./(DYU*DYUI 




DIFCOE 

56 


CYYC(JMIN) • CYYUUNINl 




DIFCOE 

57 

C 

COEFICIENTS FOR (PIYY FROM J-JNIN+1 TO 

J>JNAX-1 



OIFCOE 

SB 


JSTART • JMIN ♦ 1 




DIFCOE 

59 


JEND.JHAX-1 




OIFCOE 

60 


DO 2 J-JSTART. JENO 




OIFCOE 

61 


DYD-YIJl-YIJ-l) 




OIFCOE 

62 


DYU-YUm-YU) 




OIFCOE 

63 


OYC-YIJ+ll-YI J-ll 




OIFCOE 

6A 


CYYDIJI ■2./I0YD*0YC) 




DIFCOE 

65 


CYYUIJl-2./(DYU*DYCI 




DIFCOE 

66 


CYYCUl ■ CYYOdI ♦ CYYUIJl 




OIFCOE 

67 

2 

CONTINUE 




DIFCOE 

68 

C 

COEFFICIENTS FOR 

IPIYY AT 

JHAX. 

OIFCOE 

69 


OYD . YijHAxj - rumx-ii 




OIFCOE 

70 


CYYOIJNAX) • 2,M0TD*DY0) 




DIFCOE 

71 


CYTUIJKAXl • 2. YOYO 




OIFCOE 

72 


CYYCIJMAXl . CYYOIJNAX) 




DIFCOE 

73 






OIFCOE 

7A 

c 

COEFFICIENTS FOR VELOCITY FORMULAS 




DIFCOE 

75 






OIFCOE 

76 


ISTART • IHIN * 1 




DIFCOE 

77 


00 3 I • ISTART, INAX 




OIFCOE 

78 


xoiFFid • i,/(xm - xii-iii 




OIFCOE 

79 

3 

continue 




DIFCOE 

80 


JSTART • JNIN Al 




OIFCOE 

81 


DO 5 J • JSTART , JNAX 




OIFCOE 

82 


YDIFF(J) ■ l./IYIJI - YIJ-lIl 




DIFCOE 

83 


APPENDIX 



5 CONTINUE 

C COEFfICIENTS FOR EXTRAPOLATION FORMULAS FOR AIRFOIL SURFACE PROPERTIES 

CJLON • -r(JLOW-l) / tr(JLOW> - YULOU-IU 

CJLQVl • -YULQAl 1 tYULOUt - YtAlOM-2)> 

CJUP • YlJUP+11 / [Y(JUP+D - YUUPH 

CJUPl • YtJUP) / (YUUP+ll - YIJUP)I 

C COMPUTE SPECIAL DIFFERENCE COEFFICIENTS FOR PYT 

C TO USE FOR AIRFOIL ROUNDARY CONOITIQN 

C difference coefficients for UPPER SURFACE 

CYYilUD • -2./<Y« JUP+li ♦ Y(JUP>) 

CYYBUC • -CYYDUD / (Y(JUP+l) - Y(JUPl) 

CYYDUU • CYYBUC 

c difference coefficients for ldi^er surface 

CYYSLU*-2.0/(YlJLai<l + YULOW-IH 
CYYBLC • CYY8LU t (YIJLOWl - YULON'llI 
CYY6L0 « CYYBLC 
RETURN 
END 


OIFCOE BA 
OIFCOE 85 
DIFCDt Sb 
OIFCOE BT 
DIFCOE SB 
OIFCOE 8« 
OIFCOE 90 
DIFCOE 91 
OIFCOE 92 
OIFCOE 93 
DIFCOE 9A 
OIFCOE 95 
DIFCOE 96 
DIFCOE 97 
DIFCOE 98 
DIFCOE 99 
DIFCOE 100 
DIFCOE 101 
DIFCOE 102 
OIFCOE 103 


fUNCTION DRAGCCDFACTI 

C CONFUTES PRESSURE DRAG BY INTESRATIKO U*Y AROUND 

C AIRFOIL USING TRAPE20DIAL RULE. 

C CALLED BY - CDCOLE. 

COMMON PI102.101I.XI100) . moo) 

COMMON / COMl/ IHIN . IMAX > lUP . IDOMN / ILE 

1 ITE .ININ . IMAX . iUP . ILOV 

2 JTOP > J8DT 

COMMON / C0M6/ FLIIOO) . FXLIlDU). FUIIOOI . FXU(IOO). 

1 CAMBERIIOQ). THICKI 1001 . VOL . XFOILCIOOI. IFOIL 

common t C0N7/ CJUP t CJUPl , CJLOW t CJLONl 

COHHON /CDM30/ XI(IOO) . ARGIIUO) . R£STt20A) 

K • 1 

ARS(1> ' 0. 

Xl(l) - X<UE-1I 
DC 10 1 • ILE.ITE 
K ■ K+1 

PXUP • CJUP*FXLI. JUPl - CJUPL*Pxt I. JUP+U 
PXLOW • CJLQUFPX ( I. JLOWl - CJL0W1*PXU.JLDV-1) 

ARGIK) • FXU(X-1)*PXUP - FXL(X“U*PXLDW 
XKK1 • X( I) 

1C CONTINUE 
K • K + I 
ARGtia • Q, 

XKKI • XCITEtll 
CALL IRAPIXI.ARC.K.SUM) 

DRAG ■ - SUM*C0FaCT*2. 

return 

END 


DRAG 2 

DRAG B 

DRAG A 

drag 5 

DRAG 6 

BLANK 2 

COMl 2 

CQNl 1 

COMl A 

C0M6 2 

C0H6 3 

COM? 2 

DRAG 11 

DRAG 12 

DRAG 13 

DRAG lA 

DRAG 13 

DRAG 16 

DRAG IT 

DRAG 16 

DRAG 19 

DRAG 20 

DRAG 21 

DRAG 22 

DRAG 23 

DRAG 2A 

drag 25 

DRAG 26 

DRAG 27 

drag 2B 

DRAG 29 


SUBROUTINE OROOTS 

0 COMPUTE constants ALPHAO. APLHAI. ALPHA2jQMEGA0i DHEGAl 

C 0HEGA2 USED IN FORMULA FOR DOUBLET IN SLOTTED VINO 

c tunnel with subsonic FREESTREAM 

C CALLED BY - FARFLO. 

COMMON /C0M12/ F . H . HALFPI .PI , RTKPOR > 

I TWOPI 

REAL JET 

COMMON /C0M16/ ALPHAO . ALPHA! ALPHA2 . XSIHG . 

1 OMEGAO > OMEGAl . OMEGAZ . JET 

ERROR ■ .00001 

COMPUTE ALPHAO 

ALPHAO • 0. 

DO 10 1 ■ 1(100 
TEMP • ALPHAO 
0 • F*TEMP - RTKPOR 
ALPHAC • HALFPI - ATANTO) 



OROOTS 2 
OROOTS 3 
OROOTS 5 
OROOTS 5 
OROOTS 6 
OROOTS 7 
CQM12 2 
C0H12 3 
C0M16 2 
C0H16 3 

cm 6 i 

OROOTS 10 
OROOTS 11 
OROOTS IZ 
OROOTS 13 
OROOTS 15 
OROOTS 15 
OROOTS 16 
OROOTS 17 


n 



DALPHA • ABSIALPHA3 - TEMP) 

-OROOTS 

18 


IF(OALPHA .LT. ERROR) GO TO 15 

DROQTS 

19 

10 

CONTINUE 

OROOTS 

20 


N • 0 

DROOTS 

21 


GO TO 9999 

DROQTS 

22 

15 

CONTINUE 

DROOTS 

23 

C 

COHPUTE ALPHAl 

DROOTS 

24 


ALPHAl • 0. 

DROOTS 

29 


00 20 I ■ l.lOO 

OROOTS 

26 


TEKP ■ ALPHAl 

DROOTS 

27 


0 • FP(TEHP ~ PI) - RTKPOR 

OROOTS 

2B 


ALPHAl • HALFPI > ATAN(O) 

DROOTS 

29 


DALPHA ■ ABS(ALPHA1 - TEMP) 

DROOTS 

30 


IF(OALPHA .LT. ERROR) GO TO 25 

OROOTS 

31 

20 

CONTINUE 

DROOTS 

32 


N • 1 

DROOTS 

33 


GO TO 9999 

DROQTS 

34 

25 

CONTINUE 

DROOTS 

35 

C 

COMPUTE ALPHA2 

OROOTS 

36 


ALPHA2 ■ 0. 

DROOTS 

37 


DO 30 1-1(100 

OROOTS 

38 


TEMP ■ ALPHA2 

DROQTS 

39 


Q ■ F*(TEMP - TWOPI) - RTKPOR 

DROOTS 

40 


ALPHA2 • HALFPI > ATAN(O) 

OROOTS 

91 


DALPHA ■ ABSIALPHAZ - TEMP) 

DROOTS 

42 


IF(OALPHA .LT. ERROR) GO TO 35 

DROOTS 

43 

30 

CONTINUE 

OROOTS 

94 


N - 2 

OROOTS 

99 


GO TO 9999 

DROOTS 

96 

35 

continue 

OROOTS 

97 

C 

COHPUTE QHEGA0(DHEGA1(0HEGAZ 

DROOTS 

9B 


TEMP - 1.0 / TAN(ALPHAO) 

OROOTS 

99 


0HE6A0 • l./n. * F/U.4 TEMP*T£HP)) 

DROOTS 

50 


temp ■ 1.0 / TAN(ALPHAl) 

DROOTS 

51 


OMEGAl • l./(2. « F/U. * TEMPPTEMP)) 

DROOTS 

52 


TEMP ■ I.O / TAN(ALPHA2) 

DROOTS 

53 


0MEGA2 • l./(l, * F/(l, * TEMPtTEMP)) 

OROOTS 

59 


RETURN 

OROOTS 

95 

C' 

abnormal stop if IIERATION FOR ALPHAS HOT CONVERGED 

DROOTS 

56 

9999 

continue 

OROOTS 

57 


WRITE(6.1000) N 

OROOTS 

56 

1000 

format (35H1ABN0RNAL STOP IN SUBROUTINE OROOTS/ 

DROQTS 

59 


1 38H0N0NCCNVERGENCE OF ITERATION FOR ALPHA. Ill 

OROOTS 

60 


STOP 

OROOTS 

61 


END 

OROOTS 

62 


SUBROUTINE ECHINP 

C PRINTS INPUT CARDS USED FOR RUN. 

C CALLED BY - TSFQIL. 

DIHENSION CRD(B) 

WRITE (6.1101 
IQ CONTINUE 

read (5.1001 CRD 

C YES. HD 

IF (E0F(3tl 30.20 
20 CONTINUE 

WRITE (6.1011 CRD 
GO TO 10 
30 CONTINUE 
rewind 5 
RETURN 

100 F0RNAT(8A10I 

101 FORNAT(IX.BAIO) 

IIQ^FORMAM 1H1.58X.39KLISTING OF INPUT CAROS FOR THIS RUNy59X(33(lNP) 
END 


ECHINP 2 

ECHINP 3 
ECHINP 4 

ECHINP 9 

ECHINP 6 

ECHINP 7 

ECHINP 8 

ECHINP 9 

ECHINP 10 

ECHINP 11 

ECHINP IZ 

ECHINP 13 

ECHINP 14 

ECHINP 15 

ECHINP 16 

ECHINP 17 

ECHINP la 

ECHINP 19 S 

ECHINP 20 S 

ECHINP 21 2 

ECHINP 22 S 

ECHINP 23 H 



FUNCTION ENACHilU) 

C FUNCTION EHACHl CONFUTES LOCAL SINILARTY PARAnETER 

C OR LOCAL MACH NUMBER 

C CALLED BY - MACHMP* PRlNTlt PRTFLO. 

COMMON / CDH2/ AK • ALPHA j DUB r GAHl > RTK 

LOGICAL PHYS 

INTEGER PRTFIO » SIMDEF 

COMMON /C0M27/ CL t DELTA , 0ELRT2 i cMACri f LMROOT f 

1 PHYS F PRTFLO f SIMOEF , SONVEL i VFACT f 

2 TFACT 

C COMPUTE similarity PARAMETER BASED ON LOCAL VELOCITY 

AKl ■ AK - GAMlAU 
IFIPHYS) GO TO 5 

C RETURN VALUE OF LOCAL SIMILARITY PARAMETER 

EHACHl - AKl 
RETURN 

p CONTINUE 

C compute value of LOCAL MACH NUMBER AND RETURN 

C COLE SCALING 

ARG > DELRT2*AK1 

C SPREXTER SCALING 

IFCSIMDEF .ED, 2) ARG • ARGAEMROOT'EMROOT 
C KRUPP scaling 

IFISIMDEF .ED. 3) ARG • ARGAEMACH 
ARG • 1. - ARG 
EMACHI • 0. 

IFIARG .GT. O.IEMACHl • SQRT(ARS> 

RETURN 

END 


EMACHI 2 
EMACHI 3 
EMACHI A 
EMACHI S 
EMACHI b 
COM2 2 
C0MZ7 2 
C0M27 3 

C0M27 A 
C0M27 5 

COM2? 6 
EMACHI 9 
EMACHI 10 
EMACHI 11 
EMACHI 12 
EMACHI 13 
EMACHI lA 
EMACHI 19 
EMACHI 16 
EMACHI 17 
EHACHl 18 
EMACHI 19- 
EMACHI 20 
EHACHl 21 
EHACHl 22 
EMACHI 23 
EMACHI 2A 
EMACHI 29 
EMACHI 26 
EMACHI 27 
EHACHl 26 


SUBROUTINE eXTRAPC X P f YP fPNcU I 

C COMPUTE P AT X, YP USING FAR FIELD SOLUTION 

C FOR SUBSONIC FLOW 

C CALLED BY • GUESSP. 


COMMON / C0H2/ AK 
COMMON /C0M12/ F 
1 TWOPI 

COMMON /C0MI9/ B 

1 psn 

REAL JET 

COMMON /C0M16/ ALPHA'J 
1 OHEGAO 

INTEGER BCTYPE 

COMMON /C0M28/ flCTYPc 


F ALPHA F DUB 
F H F HALFPI 

F BETAO F BETAl 
F PSI2 

F ALPHAl F ALPHA2 
F OMEGAl F 0MEGA2 

F CIRCFF F FHINV 


F GAMl F RTK 

F PI F RTKPOR F 

F BETA2 F PSIO F 

F XSING F 

F JET 

F POR ' F CIRCTE 


IPIBCTYPE .NE. 1) GO TO 100 
C FREE AIR boundary CONDITION 

IPIABS(YP) .LTf l.E-6) YP ■ -l.E-6 
XI ■ XP - XSING 
ETA ■ YPARTK 

PNEW • - CIRCFF/ TWOPI*l ATAN2 (ETAf XI I + PI - S IGN IP IfET A) I 
1 4 DUB /TH0PI/RTK4(XI/IX14X1 4 ETA*ETAII 

RETURN 

ICO CONTINUE 

C TUNNEL HALL BOUNDARY CONDITION 

ETA • YP/H 

XI • IXP - XSING)/ 1H4RTK) 

IFIXI .LT. 0.) GO TO 200 
C XP IS DOWNSTREAM OF AIRFOIL 

TERM • ETA 

IFIBCTYPE fNE, 3) TERM • $I N( ETA48ETAD I / BETAO 
PNEH • - .9*CIRCFF4(1, - SIGNII.fETAI 

1 4 (1,-JET)*PSI0*TERM*EXP(-BETA0*XII ) 

2 4 DUB *.9/IAK*H)*IS 4 0MEGA04COS I ETA*ALPHAO I 

3 *tXP(-ALPHA34XD) 

RETURN 

2C0 CONTINUE 

C XP IS UPSTREAM OF AIRFOIL 

TERM ■ 0. 

IFIJET .NEt 0.) TERM • JET4ETA/ ( 1.4F) 

ARGl -PI - ALPHAl 
AR62 - PI - BETA2 

PNEW ■ -.9*CIRCFF*( l.-TERM-PSI2*S IN IETA*ARG2 ) /ARG2*EXPI ARG2*XI ) ) 

1 -•9*DUB /(AK4H)*t(l.-B)*DM£GAl*C0S(ErA*ARGl)Aexp(XI4ARGlU 

RETURN 
END 


EXTRAP 2 
EXTRAP 3 
EXTRAP 4 
EXTRAP 9 
EXTRAP 6 
COM2 2 
C0H12 2 

C0M12 3 

C0H19 2 

C0M19 3 

CQH16 2 
C0M16 3 

C0H16 4 

COHZe 2 
COMZa 3 
EXTRAP 12 
EXTRAP 13 
EXTRAP 14 
EXTRAP 19 
EXTRAP lb 
EXTRAP 17 
EXTRAP la 
EXTRAP 19 
EXTRAP 20 
EXTRAP 21 
EXTRAP 22 
EXTRAP 23 
EXTRAP 24 
EXTRAP 29 
EXTRAP 26 
EXTRAP 27 
EXTRAP 28 
EXTRAP 29 
EXTRAP 30 
EXTRAP 31 
EXTRAP 32 
EXTRAP 33 
EXTRAP 34 
EXTRAP 39 
EXTRAP 3b 
EXTRAP 37 
EXTRAP 38 
EXTRAP 39 
EXTRAP 40 
EXTRAP 41 
EXTRAP 42 
EXTRAP 43 


SUBROUTINE FARFLD 

C SUBROUTINE COMPUTES BOUNDARY DATA FOR CUTER 

C BOUNDAPIESf 

C CALLED BY - TSFOIL. 


COMMON / COMl/ IMIN F IMAX f IUP f tOOHN f ILE f 

1 ITE F JMIN F JMAK f JUP 1 JLOW F 

2 JTOP F JBOT 

COMMON / C0M2/ AK , ALPHA , DUB f GAMl , RTK 

LOGICAL AMESH 

COMMON / C0M4/ XINIlOO) f YINIIOOIf AMESH 

COMMON /C0M12/ F , H , HAIFPI f PI , RTKPOR , 

I TWOPI 

COMMON /C0M19/ B , BETAO , BETAl , BETA2 , PSIO f 

1 P5I1 F PSI2 

REAL JET 

COMMON /CDM16/ ALPHAO f ALPHA! , ALPHA2 t XSING , 

1 OMEGAO F OMEGAl f 0MEGA2 , JET 

COMMON /CDH24/ DTOPCIOOIf DBQTIIOOIfDUP I100)f ODOWNIIOOIf 
1 VTOPIIOOIf VB0TI1O0)fVUPI100I f VDOWNIIOO) 

INTEGER BCTYPE 

^ COMMON /C0M28/ BCTYPE , CIRCFF , FHINV , POR , CIRCTE 

C TEST FOR SUPERSONIC OR SUBSONIC FREESTREAH 

IFIAK .GT. 0.) GO TO 99 

IF IF .NE. 0.0 .AND. H .NE. 0.0) GO TO 10 
FHINV • 1.0 
RETURN 
10 CONTINUE 

FHINV ■ 1.0 / IF * H) 

C SUPERSONIC FREESTREAH 

C upstream boundary conditions CORRESPOND TO UNIFORM 

C UNDISTURBED FLOW 

c DOWNSTREAM boundary REflUIRED TO BE SUPERSONIC 

C TOP AND BOTTOM BOUNDARIES USE SIMPLE WAVE SOLUTION. 

RETURN 

C 

99 CONTINUE 
C 

C SUBSONIC FREESTREAH 

C 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


FUNCTIONAL FORM OF THE POTENTIAL ON OUTER BOUNDARIES 
IS PRESCRIBED. EOUATIOHS REPRESENT ASYMPTOTIC FORM 
FOR DOUBLET AND VORTEX IN FREE AIR AND WIND TUNNEL 
ENVIRONMENT. DOUBLET AND VORTEX ARE LOCATED AT 
X-XSINGf T-0. 

ACTUAL BOUNDARY VALUES ARE SET IN SUBROUTINES RECIRC 
AND REOUB WHERE THE FUNCTIONAL FORMS ARE MULTIPLIED 
BY THE VORTEX AND DOUBLET STRENGTHS. THE BOUNDARY 
CONDITIONS ARE CALCULATED HERIN FOR THE INPUT X AND 
Y MESH AND VALUES ARE DELETED FOR THE COARSE MESH IN 
SUBROUTINE SETBC. 


C 

C 



C 

C 


XSING 9 LOCATION OF SINGLULAR VORTEX AND DOUBLET 

SET DEFAULT VALUES FOR TUNNEL WALL PARAMETERS 

6 • 0 . 

OMEGAO • 1. 

OMEGAl • 1. 

0ME6A2 • 1. 

JET ■ 0. 

PSIO ■ 1. 

PS II - 1. 

PSI2 • 1. 

BRANCH TO APPROPRIATE FORHULIS DEPENDING ON BCTYPE 
GO TO {100>Z00.300.400>900.600)>6CTYPE 
CONTINUE 

BCTYPE • 1 

FREE AIR BOUNDARY CONDITION 
SET BOUNDARY ORDINATES 
YT • YINIJMAX)*RTK 
YB ■ YINIJHIN14RTK 
XU • XINIIHIN) - XSING 
XD • XINIIMAX) • XSING 
YT2 ■ YT*YT 
YB2 • YB4YB 
XU2 - XU4XU 
XD2 • XO*XC 
COEFl ■ 1. /TWOPI 
CDEF2 • 1,0/ITWDPI*RTK) 

COMPUTE DOUBLET AND VORTEX TERMS OH TOP AND BOTTOM 
BOUNDARIES. 

DO 110 I'lMIN. IHAX 
XP • XINII) ■> XSING 
XP2 - XP*XP 

OTOPIl) • KP/IXP2 4 YT2)*COEF2 
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9 

FARFLD 

6 

COHl 

2 

COMl 

3 

COHl 

4 

C0H2 

2 

COM4 

2 

COM4 

3 

C0M12 

2 

COHIZ 

3 

COHIS 

2 

C0M19 

3 

C0M16 

2 

C0H16 

3 

C0M16 

4 

C0M24 

2 

C0M24 

3 

C0MZ8 

2 

C0H28 

3 

FARFLD 

19 

FARFLD 

16 

FARFLD 

17 

FARFLD 

IB 

FARFLD 

19 

FARFLD 

20 

FARFLD 

21 

FARFLD 

22 

FARFLD 

23 

FARFLD 

24 

FARFLD 

29 

FARFLD 

26 

FARFLD 

27 

FARFLD 

28 

FARFLD 

29 

FARFLD 

30 

FARFLD 

31 

FARFLD 

32 

FARFLD 

33 

FARFLD 

34 

FARFLD 

39 

FARFLD 

36 

FARFLD 

37 

FARFLD 

38 

FARFLD 

39 

FARFLD 

40 

FARFLD 

41 

FARFLD 

42 

FARFLD 

43 

FARFLD 

44 

FARFLD 

49 

FARFLD 

46 

FARFLD 

47 

FARFLD 

48 

FARFLD 

49 

FARFLD 

90 

FARFLD 

91 

FARFLD 

92 

FARFLD 

93 

FARFLD 

94 

FARFLD 

99 

FARFLD 

96 

FARFLD 

97 

FARFLD 

98 

FARFLD 

99 

FARFLD 

60 

FARFLD 

61 

FARFLD 

62 

FARFLD 

63 

FARFLD 

64 

FARFLD 

65 

FARFLD 

66 

FARFLD 

67 

FARFLD 

6B 

FARFLD 

69 

FARFLD 

70 

FARFLD 

71 

FARFLD 

72 

FARFLD 

73 

FARFLD 

74 

FARFLD 

75 

FARFLD 

76 

FARFLD 

77 

FARFLD 

7P 



lie 

c 

c 


120 


C 


OBOTII) • XP/<XP2 + YB21*C0EF2 
VTOPdl • -lTAN2(YT>XP)PCaEFl 
VBOT(I) • -UT*N2(YB»XP> ♦ TWOPllPCOEFl 
CONTINUE 

COMPUTE DOUBLET AND VORTEX TERNS ON UPSTREAM 
AND DONNSTREAN BOUNDARIES 
DO 120 J>jnIN>JNAX 
YJ • YINIJIPRTK 
YJ2 • YJ»YJ 

DUPU) • XU/IXU2 * YJ2)PC0EF2 
DDOHNIJ) ■ XDMX02 * Y02I*COEF2 
0 • PI - SICNIPItYJI 
VUPIJ) • -IATAN2(YIfXUI * 0)*C0EF1 
VDOWN(J) ■ -(ATAN2(YJ>XDI + QIPCOEFl 

continue 

IF (AK .GT. OiOl CALL ANGLE 
RETURN 

COMPUTE WALL CONSTANTS FOR VARIOUS WIND TUNNEL 
CONDITIONS. 

CONTINUE 

BCTYPE • 2 
SOLID WALL TUNNEL 

POR *0. 

seiconstants for doublet solution 

B ■ 

ALPHAO • PI 
ALPHAl • PI 

alphaz • PI 


c 


3C0 

c 

c 


c 


c 


ADD 

C 

C 


c 

c 


boo 

C 

c 


SET constants for VORTEX SOLUTION 
BETAO ■ HALFPI 
BETAl • HALFPI 
BETA2 - HALFPI 
GO TO 700 
CONTINUE 

BCTYPE ■ 3 
FREE JET 

F • 0. 

RTKPOR ■ 0. 

SET CONSTANTS FOR DOUBLET SOLUTION 
ALPHAO • HALFPI 
ALPHAl • HALFPI 
ALPHAZ • HALFPI 

SET CONSTANTS FOR VORTEX SOLUTION 

JET • .S 
BETAO • 0. 

BETAl • 0. 

BETAZ • 0. 

GO TO 700 
CONTINUE 

BCTYPE ■ A 
IDEAL SLOTTED WALL 

RTKPOR • P. 

FHINV • 1.0 / ( F P H > 

SET CONSTANTS FOR DOUBLET SOLUTION 

CALL DROQTS 

SET CONSTANTS FOR VORTEX SOLUTION 

JET • .5 
CALL VROOTS 
GO TO 700 
CONTINUE 

BCTYPE • S 

IDEAL PERFORATED/POROUS WALL 


F • 0. 

RTKPOR ■ RTK/POR 

C SET CONSTANTS FOR DOUBLET SOLUTION 

ALPHAO ■ HALFPI - ATAN(-RTKPOR) 

ALPHAl • ALPHAO 
alphaz • ALPHAO 

C SET CONSTANTS FOR VORTEX SOLUTION 

BETAO - ATANIRTKPORI 
BETAl • BETAO 
BETAZ • BETAl 
GO TO 700 
BOO CONTINUE 


C 

C 

C 

C 

C 

C 


BCTYPE • 6 

GENERAL HOMOGENEOUS WALL BOUNDARY CONDITION 
BOUNDARY CONDITION IS. NOT OPERABLE YET IN F 
DIFFERENCE SUBROUTINES. 

FAR FIELD SOLUTION HAS BEEN DERIVED AND IS 
HERE FOR FUTURE USE 
RTKPOR • RTK7P0R 
CALL DROQTS 
CALL VROOTS 
WRITEIBaIOCOI 

1000 FORMATOSHIABNORMAL stop in subroutine FARFLD/ 

1 2AH BCTYPE-6 IS NOT U5EABLE1 


INITE 

INCLUDED 


FARFLO 79 
FARFLD 80 
FARFLO B1 
FARFLD BZ 
FARFLD 83 
FARFLD BA 
FARFLD as 
FARFLD 86 
FARFLD 87 
FARFLO 8B 
FARFLD 89 
FARFLD 90 
FARFLO 91 
FARFLD 9Z 
FARFLD 93 
FARFLO 9A 
FARFLD 9S 
FARFLD 96 
FARFLO 97 
FARFLO 98 
FARFLD 99 
FARFLO 100 
FARFLD 101 
FARFLD lOZ 
FARFLD 103 
FARFLO lOA 
FARFLD IDS 
FARFLD 106 
FARFLO 107 
FARFLD 108 
FARFLO 109 
FARFLO 110 
FARFLD 111 
FARFLO IIZ 
FARFLD 113 
FARFLO llA 
FARFLO IIS 
FARFLO 116 
FARFLO 117 
FARFLO ILb 
FARFLO 119 
FARFLO 120 
FARFLO IZl 
FARFLD IZZ 
FARFLO 123 
FARFLD 129 
FARFLD 125 
FARFLD 126 
FARFLD 127 
FARFLO 128 
FARFLO L29 
FARFLD 130 
FARFLO 131 
FARFLD 132 
FARFLO 133 
FARFLD 139 
FARFLO 135 
FARFLD 136 
FARFLD 137 
FARFLD 138 
FARFLO 139 
FARFLD 190 
FARFLD 191 
FARFLO 192 
FARFLO 193 
FARFLD 199 
FARFLO 195 
FARFLD 196 
FARFLD 197 
FARFLO 198 
FARFLO L99 
FARFLD 150 
FARFLO 151 
FARFLO 152 
FARFLD 153 
FARFLO 159 
FARFLD 155 
FARFLD 156 
FARFLO 157 
FARFLO 158 
FARFLD 159 
FARFLO 160 
FARFLD 161 
FARFLD 162 
FARFLO 163 
FARFLD 16‘ 


STOP 

700 CONTINUE 

C COMPUTE FUNCTIONAL FORMS FOR UPSTREAM AND OOWNSTREAN 

C BOUNOART CONDITIONS FOR DOUBLET AND VORTEX 

XU • (XINCIHIN) - XSINGIYCRTKPH) 

XO ■ (XIN(IHAX) - XSINGI/IRTK+H) 

C DOUBLET TERNS 

COEFl • .5/AK/H 
ARGO • ALPHAO 
ARGl • PI - ALPHAl 
ARG2 • TWOPl - ALPHAZ 
EXARGO • EXPI-ARGOPXO) 

EXARGl • EXP(ARG1*XU1 
EXARG2 • EXP(ARG2PXU) 

DO 720 J • JNIN.JMAX 
rj . YIN(J| / H 

DDQWN(J) ■ CQEFI»(8 + OMEGAO*COSI YJ*ARGO)*EXARGJI 
DUP(J( ■ -CDEF19((1.-B)*0HEGA1PCQSUJPAR61)*EXARG1 ♦ 

1 aHEGA2*CQS(YJPARC2)*EXARG2l 
720 CONTINUE 

C VORTEX TERMS 

ARGO • BETAO 
ARGl ■ PI ♦ BETAl 
AR62 • PI - BETAZ 
EXARGO • EXPC-ARGOPXDI 
EXARGl ■ EXP(-ARG1*XD) 

EXARG2 • EXPIARGZPXU) 

DO 790 J • JMIN. JNAX 
YJ • YINUI / H 
TERM ■ YJ 

IF (JET .EQ. 0.0) TERM ■ SINIYJPARGOI / ARGO 

VOOWNIJ) . -.5*11. - SlGNd.iYJ) ♦ (1. - JET)*PSIO*TERMPEXARGO ♦ 

1 PSI1*SIN(YJ9AR61)*EXARG1/ARG1I 
TERM • 0. 

IF (JET .NE. 0.01 TERM • JET * YJ ! (1.0 * F> 

VUP(J) ■ -.5*(1. - TERN - PSI2PSIN(YJ*ARG2)»EXARG2/AR62) 

79C CONTINUE 
RETURN 
END 


FARFLD 165 
FARFLO 166 
FARFLD 167 
FARFLD 168 
FARFLO 169 
FARFLO 170 
FARFLD ITl 
FARFLD 172 
FARFLD 173 
FARFLD 179 
FARFLD 175 
FARFLO 176 
FARFLD 177 
FARFLD 178 
FARFLD 179 
FARFLO 180 
FARFLD 181 
FARFLO 182 
FARFLD 183 
FARFLO 189 
FARFLD 185 
FARFLD 186 
FARFLO LB7 
FARFLD 188 
FARFLD 189 
FARFLD 190 
FARFLO 191 
FARFLD 192 
FARFLD 193 
FARFLD 199 
FARFLD 195 
FARFLO 196 
FARFLO 197 
FARFLD 198 
FARFLD 199 
FARFLD 200 
FARFLD 201 
FARFLD 202 
FARFLO 203 



SUBROUTINE FINOSKdSTART 

*I£NDfJr ISK) 



FINDSK 

Z 

c 

SUBROUTINE 

LOCATES SHOCK UAVL 

ON LINE J 

BETWEEN 

FINOSK 

3 

c 

ISTART AND 

lENO. SHOCK IS located AT SHOCK POINT. 

FINDSK 

9 

c 

IF NO SHUCK 

FOUND. ISK IS SET 

NEGATIVE. 


FINDSK 

5 

c 

CALLED BY - 

CDCDLE. 



FINOSK 

6 


LOGICAL PHYS 




conzT 

2 


INTEGER PRTFLO 

. SIMDEF 



C0M27 

3 


COMMON /CQN27/ CL 

J DELTA . 0ELRT2 

> EHACH 

> EMRDQT » 

COH27 

9 


1 PHYS 

, PRTFLO , SIMDEF 

. SONVEL 

9 VFACT 9 

CDH27 

5 


2 YFACT 




C0H27 

6 


ISK • ISTART - 1 




FINOSK 

8 


UZ • PXdSKiJ) 




FINOSK 

9 

5 

ISK ■ ISK 9 1 




FINDSK 

10 


U1 • U2 




FINOSK 

11 


U2 • PK(ISK.J) 




FINDSK 

12 


IF(U1 .GT. SQNVEL .AND. 

U2 .LE. SONVEL) GO 

TO 10 


FINDSK 

13 


IF (ISK .LE. lEND) GO TO 

5 



FINOSK 

19 


ISK ■ - TEND 




FINDSK 

15 

10 

CONTINUE 




FINDSK 

16 


RETURN 




FINOSK 

17 


end 




FINDSK 

la 



SUftKOUTlNE FIXPLT 




FIXPLT 

2 








FIXPLT 


C 



SETS UP 

ARRAYS 

FOR SUBROUTINE CPPLOT. 

FIXPLT 


c 



CALLED 

8Y - PRINT, 


FIXPLT 









FIXPLT 



CQHMON 


P(1D2> 101). 

X(IOO) 

> moo) 


■ LANK 



COHHON 

/ COMl/ 

IMIN > 

IMAX 

. lUP 

( lOQWN . UE . 

CONI 



1 


ITE • 

JNIN 

. JNAX 

. JUP . JLOW > 

CONI 



2 


JTOP > 

JBDT 



CDHI 



COHNON 

/C0N13/ 

COFACT > 

CIFACT 

» CMFACT 

, CPFACT . CP5TAR 

C0M13 



COMMON 

/C0N25/ 

CPL(IOO) 1 

CPUdOD) 



COM25 




151 


COHHON /corjo/ CPUPdOll* CPLOdOll > CPS(lOl) , XP(lOl) 

YMX • 5.*CPFACT 
YWN • -5.»CPF*Cr 
K - 0 

DO 150 I • IMlNflntx 
K - K ♦ 1 
OCP ■ -CPU(I) 

OCP • triAXHOCP.YliNI 
aCP • AM!N1(QCP»T«X) 

CPUP(K) ■ ecp 
oci • -cpun 
aci • AHAxi<oci > yhsi 

aci . AniNKacif YNX) 

CPioiKi ■ aci 
aCZ ■ -CPSTAR 
0C2 - AHAXIIOCZ.YMN) 

■aCZ ■ AMlNKUCZiYRX) 

CPS(Ki • acz 
XP(K) ■ X<II 
ISO CONTINUE 

tMP . (C ♦ 1 

CPUPIIMPI . YMX 

CPLO(IMP) - YMN 

CPSlIMP) ■ 0.0 

XP(IMP) • XdMAXi * .001 

CALL CPPLOT (XP, CPUP. CPLD» CPS» IMP) 

RETURN 

END 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


SUDROUTINE GUESSP 

SU8R0UTINE INITIALIZES P ARRAY AS FCILLDNS 


PSTART 
PSTART ■ Z 
PSTART • 3 
IF PSTART ■ 2 OR 
XOLD, YOLO TO X, . 

BOUNDARY CONDITIONS FOR P ON OUTER BOUNDARIES ARE 
AUTOMATICALLY SET DURINS INITIALIZATION 
CALLED BY - TSFOIL. 


SET TO ZERO 
P READ FROM UNIT 7 
P SET TO VALUES IN CORE 
3. SOLUTION IS INTERPOLATED FROM 


C 

C 

2 CO 
C 
C 


205 


300 


C 

C 

c 


COMMON 

COMMON / CQMl/ 

1 

2 

COMMON / C0M2/ 
LOGICAL 

COMMON / C0M3/ 
LOGICAL 

COMMON / CDMA/ 
INTEGER 

logical 

COMMON /COMll/ 

1 

Z 

3 

COMMON /C0M13/ 
INTEGER 

COMMON /COM20/ 
COMMON /C0M30/ 


P(102,I01) 

,XdOO) , mool 


ININ , 

IMAX , luP , 

IDOWN , 

ITE , 

JMIN , JMAX , 

JUP , 

JTOP , 

JBOT 


AK , 

ALPHA , OUB , 

GAMl ’, 

ABORT 
IREF , 

ABORT , ICUT , 

KSTEP 

AMESH 
XINdOOl , 

YiNdOO), AMESH 

PSTART 

PSAVE 

ALPHAD , 

CLOLD , OELTAO , 

oueo , 

ININO , 

IMAXO , IMAXI , 

JMINO , 

JNAXl , 

PSAVE , PSTART , 

TITLE(B), 

VOLO , 

XOLO(100),YOLD(100) 

COFACT , 

CLFACT , CMFaCT , 

CPFACT , 

BCTYPE 
BCTYPE , 

CIRCFF , FHINV , 

POR , 

PTdOO) , 

REST(30A) 



ILE , 

JLOW p 

RTK 


EMACHO , 
JMAXO . 
TITLEOiai. 

CPSTAR 

CIRCTE 


■ BRANCH TO APPROPRIATE LOCATION 
GO TO I 200, 300, ADO) , PSTART 
CONTINUE 

PSTART * 1 
P SET TO ZERO 
DO 205 I>1,101 
DO 205 J'l, 102 
P(J,I) ■ 0. 

CONTINUE 
OUB • 0. 

CIRCFF - 0. 

CIRCT£>0.0 

RETURN 

continue 


PSTART • 2 

P, X, T ARRAYS BEAD FROM 
TOGETHER KITH INFORMATION 


UNIT 7 IN SUBROUTINE REAOIN 
ABOUT OLD SOLUTION 


FIXPLT 11 
FIXPLT 12 
FIXPLT 13 
FIXPLT lA 
FIXPLT 15 
FIXPLT 16 
FIXPLT 17 
FIXPLT IB 
FIXPLT 19 
FIXPLT 20 
FIXPLT 21 
FIXPLT 22 
FIXPLT 23 
FIXPLT 2A 
FIXPLT 25 
FIXPLT 26 
FIXPLT 27 
FIXPLT 28 
FIXPLT 29 
FIXPLT 30 
FIXPLT 31 
FIXPLT 32 
FIXPLT 33 
FIXPLT 3A 
FIXPLT 35 
FIXPLT 36 
FIXPLT 37 
FIXPLT 36 
FIXPLT 39 


GUESSP 2 
GUESSP 3 
GUESSP A 
GUESSP 5 
GUESSP 6 
GUESSP 7 
GUESSP e 
GUESSP 9 
GUESSP 10 
GUESSP 11 
GUESSP 12 
BLANK 2 
COMl 2 
COMl 3 
COMl A 
COM2 2 
COM3 2 
COM3 3 
COMA 2 
COMA 3 
COMll 2 
COMll 3 
COMll A 
COMll 5 
COMll 6 
COMll 7 
CQM13 2 
COMZB 2 
COM28 3 
GUESSP 21 
GUESSP 22 
GUESSP 23 
GUESSP 2A 
GUESSP 25 
GUESSP 26 
GUESSP 27 
GUESSP 28 
GUESSP 29 
GUESSP 30 
GUESSP 31 
GUESSP 32 
GUESSP 33 
GUESSP 3A 
GUESSP 35 
GUESSP 36 
GUESSP 37 
GUESSP 3B 
GUESSP 39 


AOO CONTINUE 

C PSTART • 3 

C ARRAYS FROM PREVIOUS CASE ARE ALREADY IN P, XOLO,YOLD 

DUB - DUBQ 

CIRCFF ■ CLQLO/CLFACT 
CIRCTE-CIRCFF 
C 

C FOR PSTART ■ 2 OR 3, OLD P ARRAY OH XOLO, YOLD MESH 

C . MUST BE INTERPOLATED ONTO NEW X Y MESH, 


C 

C 

C 


AlO 

C 

C 

C 

C 


A20 

A30 

C 

c 


A50 

C 


c 

c 


ASS 


ABO 


A70 


C 

C 

C 


A75 

C 


A6C 

A90 

500 

C 

C 

C 


510 


C 

C 

C 

C 


INTERPOLATE P FRON XOLD, YOLO TO X,YOLO 
CHECK TO SEE IF XOLD AND XIN ARE THE SAME MESH 
IFdHAXI .NE, IMAXO) GO TO ASO 
00 AlO I-IMIN, IMAXI 
TEST • ABS(XINd) - XOLOd)) 

IFITEST .GT. .0001) GO TO A50 
CONTINUE 

XIN AND XOLO ARE SANE MESH. 

P ARRAY MAY BE INTERPOLATED BY SIMPLE DELETION OF 
VALUES AT HESH POINTS DELETED IN SUBROUTINE CUTOUT 
IF IREF .LE. ZERO, NO INTERPOLATION IS NEEDED 
IPdREP .LE. 0) GO TO 500 
ISTEP ■ 2P1REF 
DO A30 J • JMINC, JMAXO 
INEW - 0 

00 A20 1 • IMINO, IMAXO, ISTEP 

INEU • INEU * 1 

P(J,INEVI • P(J,II 

CONTINUE 

CONTINUE 

INTERPOLATION IN X DIRECTION COMPLETE IF XIN AND 
XOLD ARE THE SAME. 

GO TO 500 
CONTINUE 

interpolate FROM XOLO TO X FOR ARBITRARY CASE 
DO A90 J > JHINO, JMAXO 
YP ■ YQLO(J) 

DO ATS I • IMIN, IMAX 
XP • Xdl 

IF(XP .LT. XOLDdMINOn GO TO A70 
IF<XP .GT. XOLDdMAXOI) GO TO A70 

NEH X MESH POINT yiTHIN RANGE OF OLD X MESH 
FIND VALUE OF XOLO .GT. XP 

X2 • XOLDtll 
K • 0 
K • K 4-1 
XI • X2 
X2 • XOLD(K) 

IF (X2 ,LT. XP) GO TO ASS 
IF (X2 .GT. XP) GO TO AGO 
PTd) • P(J,K) 

GO TO A75 
CONTINUE 
PI ■ P(J,K-1) 

P2 - P<J,K) 

PTd) • PI + (P2 - PD/IX2 - XI) ♦ (XP - XI) 

GO ID A75 
CONTINUE 

NEW X HESH POINT . IS OUTSIDE RANGE OF OLD X NESh 
FOR SUPERSONIC FREESIREAM SET P*0, FOR SUBSONIC 
FREESTREAN, EXTRAPOLATE USING FAR FIELD SOLUTION 

PTd) • 0. 

IFIAK .GT. 0.) CALL 6 XTRAP t XP, YP, PTd ) ) 

CONTINUE 

WRITE NEW VALUES FOR P INTO P ARRAY 
00 ABO 1 • IMIN, IMAX 
P(J,1) ■ PTd) 

CONTINUE 

CONTINUE 

CONTINUE 

INTERPOLATE FROM X,YOLD TO X,Y 

CHECK TO SEE IF YIN AND YOLO ARE THE SANE NESH 

EFIJMAXI ,NE. JHAXQ) GO TO 550 

DO 510 J • JHIN, JNAXl 

TEST - ABS(TIN<J) - TOLO(J)) 

IFITEST .GT. .0001) 60 TO 550 
CONTINUE 

YIN AND YOLD ARE THE SANE MESH 

P ARRAY MAY BE INTERPOLATED BY SIMPLE DELETION OF 
VALUES AT NESH POINTS DELETED IN SUBROUTINE CUTOUT 
IF IREF .LE. ZERO, NO INTERPOLATION IS NEEDED 
IFdREF .LE, 01 GO TO 600 
JSTEP ■ 2*IREF 
DO 530 I- ININ, IHAX 


GUESSP 

AO 

s 

GUESSP 

A1 

►0 

GUESSP 

•A2 

9 

GUESSP 

A3 

d 

GUESSP 

AA 

, X 

GUESSP 

A5 


GUESSP 

A6 


GUESSP 

A7 


GUESSP 

AS 


GUESSP 

A9 


GUESSP 

50 


GUESSP 

51 


GUESSP 

52 


GUESSP 

S3 


GUESSP 

5A 


GUESSP 

55 


GUESSP 

56 


GUESSP 

57 


GUESSP 

5S 


GUESSP 

59 


GUESSP 

60 


GUESSP 

61 


GUESSP 

62 


GUESSP 

63 


GUESSP 

6A 


GUESSP 

65 


GUESSP 

66 


GUESSP 

67 


GUESSP 

6S 


GUESSP 

69 


GUESSP 

70 


GUESSP 

71 


GUESSP 

72 


GUESSP 

73 


GUESSP 

7A 


GUESSP 

75 


GUESSP 

76 


GUESSP 

77 


GUESSP 

7B 


GUESSP 

79 


GUESSP 

80 


GUESSP 

81 


GUESSP 

B2 


GUESSP 

83 


GUESSP 

BA 


GUESSP 

85 


GUESSP 

8b 


GUESSP 

87 


GUESSP 

86 


GUESSP 

89 


GUESSP 

90 


GUESSP 

91 


GUESSP 

92 


GUESSP 

93 


GUESSP 

9A 


GUESSP 

95 


GUESSP 

96 


GUESSP 

97 


GUESSP 

98 


GUESSP 

99 


GUESSP 

100 


GUESSP 

101 


GUESSP 

102 


GUESSP 

103 


GUESSP 

lOA 


GUESSP 

105 


GUESSP 

106 


GUESSP 

107 


GUESSP 

108 


GUESSP 

109 


GUESSP 

110 


GUESSP 

111 


GUESSP 

112 


GUESSP 

113 


GUESSP 

llA 


GUESSP 

115 


GUESSP 

116 


GUESSP 

117 


GUESSP 

118 


GUESSP 

119 


GUESSP 

120 


GUESSP 

121 


GUESSP 

122 


GUESSP 

123 


GUESSP 

12A 



I 

I 


JNEh • 0 

DO iZO J • jniNDf JHAXOi JSTEP 
JNEW • JNEb + 1 
P(JNEW>I) ■ P(Jfl) 

S20 COKTINUE 
S30 CONTINUE 

C INTERPOLATION IN Y DIRECTION CONPLETE IF YIN AND 

C YOLO ARE THE SANE. 


550 


C 


C 

c 


GO TO 600 
CONTINUE 

INTERPOLATE YOLO TO Y FOR ARBITRARY CASE 
DO 590 I • IHINiIHAA 

xp • xm 

K • 2 

T1 ■ TOLDdI 

DO 575 J • JHINiJNAX 

YP • YtJI 

IFIYP .LT, YOLOCJNINOM GO TO 5T0 
IF(YP .GT. TQLDtJNAXCn GO TO 571 

NEW Y HESH POINT WITHIN RANGE OF OLD Y NESH 
FIND VALUE OF YOLD .GT. YP 


555 


C 

C 

c 

c 


Y2 • Y1 
K • K - 1 
K • K t 1 
Y1 • Y2 
Y2 ■ YOLOJKI 

IFIY2 .LE. YPI GO TO 555 
PI - P(X-lfIl 
P2 • PIK.n 

PTIJJ • PI ♦ IP2 - PI) / IY2 - Yl) * «YP - Tl) 

GO TO 575 

NEW T NESH POINT OUTSIDE RANGE OF OLD Y NESH. 

SET P(J#I) • PUNINO.ll OR. IF SUBSONIC FREESTREAN 
FREE AIRFLOW. EXTRAPOLATE FOR P(J. I) USING FARFLO 
FORNULA. 


570 

CONTINUE 



PTU) • PUHINO.II 


60 TO 572 


671 

PT(J) ■ P(JNAXQ.l) 

572 

CONTINUE 
IF(AK .GT 

. 0. .AND. 1 

575 

CONTINUE 

PUT NEW 


DO 5B0 J 

- JNIN.JHAX 


P(J.l) • 

PT(J) 

5B0 

CONTINUE 


590 

CONTINUE 


60b 

CONTINUE 

RETURN 

END 



SCTYPE .EO. II CALL EXTRAPI XP. TP. PT ( W) ) 
P VALUES INTO P ARRAY 


GUESSP 125 
GUESSP 126 
GUESSP 127 
GUESSP 128 
GUESSP 129 
GUESSP 130 
GUESSP 131 
GUESSP L32 
GUESSP 133 
GUESSP 13A 
GUESSP 135 
GUESSP 136 
GUESSP 137 
GUESSP 13B 
GUESSP 139 
GUESSP lAD 
GUESSP 161 
GUESSP 162 
GUESSP 163 
GUESSP 166 
GUESSP 165 
GUESSP 166 
GUESSP 167 
GUESSP 166 
GUESSP 169 
GUESSP 150 
GUESSP 151 
GUESSP 152 
GUESSP 153 
GUESSP 156 
GUESSP 155 
GUESSP 156 
GUESSP 157 
GUESSP 158 
GUESSP 159 
GUESSP 160 
GUESSP 161 
GUESSP 162 
GUESSP 163 
GUESSP 166 
GUESSP 165 
GUESSP 166 
GUESSP 167 
GUESSP 168 
GUESSP 169 
GUESSP 170 
GUESSP 171 
GUESSP 172 
GUESSP 173 
GUESSP 176 


SUBROUTINE ISLII ( X I 

C ISLir CONFUTES ILE AND ITE FOR ANY XNESH ARRAY. 

C CALLED BY - CKNESH. CUTOUT. READIN. REFINE. 

CONNON / CONI/ ININ . IHAX . lUP . lOOWN j ILE > 

1 ITE > JNIN > JNAX > JUP . JLOW . 

2 JTOP > JBQT 

DIMENSION XUOO) 

I • ININ - 1 
10 CONTINUE 
T • I + 1 

IF (XUI .LT. 0.01 GO TO 10 
ILE • I 
20 CONTINUE 
I • I 6 1 

IF (XUI .LE. 1.01 GO TO 20 

ITE • I - 1 

RETURN 

END 


SUBROUTINE JSLII ( T I 

JSLIT CONFUTES JLOW AND JUP FROM Y ARRAY. 
CALLED BY - CKNESH. CUTOUT. REAOIN. REFINE. 


CONNON / CONI/ ININ 

1 ITE 

2 JTOP 


INAX . lUP . IDOWN . ILE . 
JNIN > JNAX . JUP • JLOW . 
JBQT 


DIHENSION TUOOI 
J • JNIN - 1 
10 CONTINUE 
J ■ J ♦ 1 

IF lYIJI .LT. 0.01 GO TO 10 

JLOW ■ J - 1 

JUP • J 

RETURN 

END 


ISLIT 2 
ISLIT 3 
ISLIT 6 
ISLIT 5 
ISLIT 6 
CDHl 2 
CONI 3. 
CONI V 
ISLIT a 
ISLIT 9 
ISLIT 10 
ISLIT 11' 
ISLIT 12 
ISLIT 13 
ISLIT 16 
ISLIT 15 
ISLIT 16 
ISLIT 17 
ISLIT 18 
ISLIT 19 
ISLIT 20 


JSLIT 2 

JSLIT 3 

JSLIT 6 

JSLIT 5 

JSLIT 6 

CONI 2 

CONI 3 . 

CONI 6 

JSLIT a 

JSLIT 9 

JSLIT 10 

JSLIT 11 

JSLIT 12 

JSLIT 13 

JSLIT 16' 
JSLIT IS 

JSLIT 16 

JSLIT 17 


SUBROUTINE INPERR (II 

C FATAL ERROR IN INPUT. WRITE NESSAGE AND STOP. 

C CALLED BY - REAOIN. SCALE. 


IF 

It 

.10. 

1) 

WRITE 

(6f 

901) 

IF 

(I 

.EO. 

2) 

WRITE 

(6* 

902) 

IF 

It 

.EQ. 

3) 

WRITE 

(6f 

903) 

IF 

II 

.EO. 

61 

WRITE 

(6« 

906) 

IF 

(I 

.EO. 

5) 

WRITE 

(6» 

905) 

IF 

(I 

.EO. 

6) 

WRITE 

ib$ 

9061 

IF 

(I 

.EO. 

7) 

WRITE 

<6* 

907) 


901 F0RNATUK0.5X.65HINAX OR JNAX IS GREATER THAN lOO.NDT ALLDWED.I 

902 F0RHAT(1H0.5X.39HX NESH POINTS NOT NONOTONIC INCREASING. I 

903 F0RNATUH0.5X.39HY HESH POINTS NOT NONOTONIC INCREASING.! 

9C6 FDRNAT(1H0»5X.66HNACH NUHBER HOT IN PERNITTED RANGE. (.5.2.011 
905 F0RNAT(1H0.5X.61HALPHA NOT IN PERNITTED RANGE. (-9.0. 9,0)1 
9C6 F0RMATI1H0.5X.61HDELTA NOT IN PERNITTED RANGE. ( 0,0. 1.01) 

-* 907 FORNATI1H0.5X.65HAK-0. VALUE OF AK NUST BE INPUT SINCE PHYS-F.) 

S END 


INPERR 2 


INPERR 

3 





INPERR 

4 





INPERR 

5 





IKPERR 

6 





INPERR 

7 


REAL FUNCTION LIFT (CLFACT) 


INPERR 

8 

C 


CONFUTE LIFT COEFFICIENT FROH 

JUHP IN P 

INPERR 

9 

c 


EDGE OF AIRFOIL 


INPERR 

10 

c 


CALLED BY - PRINTl. SOLVE. 


INPERR 

11 





INPERR 

12 


COHNON 

p(io2.ioi).x(iooi . moo) 


INPERR 

13 


CQKMON 

/ CONI/ ININ . INAX . lUP 

. IDOWN 

INPERR 



1 

ITE . JNIN . JNAX 

. JUP 

INPERR 

15 


Z 

JTOP . JBOT 


INPERR 

16 


COHNGN 

/ COHT/ CJUP > CJUPl . CJLOW 

. CJLQWl 

INPERR 

17 





INPERR 

18 


PTGR • 

CJUP*P(JUP.ITE) - CJUP16PIJUP * 1 . 

ITE) 

INPERR 

19 


PBOT - 

CJLOW*P1JLOW.1TE) - CJL0H1*P(JL0W-1. ITE) 

INPERR 

20 


LIFT • 

2>*CLFACr«( PTOP-PBQTI 


INPERR 

21 


RETURN 



INPERR 

22 


END 




TRAILING 


ILE > 

JLOW . 


LIFT 2 

LIFT 3 

LIFT 6 

LIFT 5 

LIFT 6 

BLANK 2 

CONI 2 

CONI 3 

CONI 6 

G0N7 2 

LIFT 10 

LIFT 11 

LIFT 12 

LIFT 13 

LIFT 16 

LIFT 15 





c 

c 

c 

c 


c 



coMdON / com/ ININ , iNi/ , lu? > loouN , in , 

1 ITE , JNIN , JNAX , JUP , JLQW , 

2 JTOP r jaOT 

CONNQN /C0N30/ .MNI 100) , RESTOO^) 


INTEGER CHAR 
OINENSION CHAR<37) 

DATA CHAR/lH0>iHl/lH^,lH3tlN4>lH5>lH6>lH7«lHe> 1H9, IHAt IHO, 1HC> IHOr 
I IHEl IHFt lHa>lHH>lHI>lHJjlHK«IHL>lHH>lHNjlHO>lHP>lHO<lHR#lHS>lHT> 

DATA IB/IH / , IP/IH+Z , IN/IN-/ , IL/IHL/ , IT/IHT/ 


WRITE <b>AOO) 

DO 60 K<2>JNAX 
J ■ JNAX - N ♦ E 

IJC • IB 

IF < J .E«. JUP) IJC - IP 
IF ( J .£0. JLQW ) UC • IN 
00 10 I'll IHAX 
Hn(I) ■ IB 

10 CONTINUE 

DO SO t-2ilNAX 
U • PX(IiJ) 

EN ■ EMACHl (U) 

IF (EN .GT. OiO) GO TO 20 
HH(I) • CHAR(l) 

GO TO 50 
20 CONTINUE 

KAR'INTao.AEN-fl.S) 

IF (KAR ,GT. 37) NAR'37 
NN(I)'CHAR(KAR) 

50 CONTINUE 

WRITE (6|4I0) IJCl (NN(I)>I'2iINAX) 
60 CONTINUE 

DO 70 I'liINAX 
MM(I) • IB 

IF (I ,E0. ILE) HN(1) • IL 
IF II .EOi ITE) NN(I) • IT 
70 CONTINUE 

WRITE I6|A20) (NN(I)iI'2iIHAX) 
RETURN 


Aoo formatiihIiSbxiIbhnach nunber nap/59x>i5IIh*) ///bxiAibhsynboliSx# 

1 5HRANGE>1AX)/5X>LHOi1OX>9HN.LEi0iO5i1OXi2OHA 0.95.LT.N.LEi1iOSi 

2 10X|2CKI< 1.95iLI.H.LE.2.05i10Xi2UHU 2.95.LTiH.Lci3.0S/SXi 

3 20H1 O'OS.LT.N.LE.C.lSilOXi 20HB l.OSiLTiN.LE.l.lSilOXi 

A ZOHL 2>05.LT.N.Lb.2.15il0X>20HV 3. 05 .LT .M . L E .3. 15/ SX> 

5 20H2 Oil5iLT.N.LE.C.25ilOXi20HC 1.15.LT.N.LE.1.25il0Xi 

6 20HN 2.I5.LTiH,Lc<2.25i10X,20HW 3.15.LT.N.LEi3.2S/5Xi 

7 20H3 0.25.L7.H.lE.0.35i 10Xi20HO 1.2S.LT.1.lE.1.3Si lOXi 

6 20NN 2.Z5.LT>N.LE.2.3SilOXi2CHX 3<2S.LT.N.LE.3.35/5Xi 
9 20HA Oi35.LT.N,LE.C.A5iIOXi20hE 1. 35 .LT.N. LE. l.ASi lOX, 

A 20H0 2.35.LT.N.LE.2.A5il0Xi20HY 3.35.LT.N.LE.3.A5/5X« 

B 20H5 C.AS.LTiN.LE.CiSSiIOXi 20HF 1.A5 .LT.N.LE.l. SSi lOXi 
C 20HP Z.95iLt.N.LE.2.S5il0Xi20HZ 3.AS.LT.N.LE.3.SS/5Xi 

0 20H6 0.5SiLr.N.LE.0.65ilOXi20HG 1.55 .LT.N. LE«1.6Si 10X< 

E 2QH0 2.55.LT,N.LE.2.65il0XilHA|10X.9HM.GT.3.55/5X> 

F 20M7 0.65.LT.N.LE.0.75ilCXi2UHH 1 . 65 . LT.N. LE . 1. 75i lOXi 
G 2QHR 2.65.LI.N.LE.2.7S/5 Xi29Hs C.75.LT.N.LE.0.89.10Xi 

H 20HI 1.75.LT.N.LE.l.a5ilOXi20HS 2.75.LT.N.LE.2.a5/9X. 

1 20H9 0.a5.LT.N.LE.0.95ilOXi20HJ l.aS.LT.N.LE.1.9SilOXi 
J 20HT 2.BS.LT.N.LE.2.95//) 

AlO FORNAT(llX.lOOAl) 

A20 FORNAT (12Xi99Al) 


END 


NACHNP 2 
NACHNP 3 
NACHNP A 
NACHNP 5 
NACHNP 6 
CONI 2 

CONI 3 
CONI A 
NACHNP a 
NACHNP 9 
NACHNP 10 
NACHNP 11 
NACHNP 12 
NACHNP 13 
NACHNP lA 
NACHNP 15 
NACHNP 16 
NACHNP 17 
NACHNP la 
NACHNP 19 
NACHNP 20 
NACHNP 21 
NACHNP 22 
NACHNP 23 
NACHNP 2A 
NACHNP 25 
NACHNP 26 
NACHNP 27 
NACHNP 2S 
NACHNP 29 
NACHNP 30 
NACHNP 31 
NACHNP 32 
NACHNP 33 
NACHNP 3A 
NACHNP 35 
NACHNP 36 
NACHNP 37 
NACHNP 36 
NACHNP 39 
NACHNP 90 
NACHNP 91 
NACHNP 92 
NACHNP 93 
NACHNP 99 
NACHNP 95 
NACHNP 96 
NACHNP 97 
NACHNP 98 
NACHNP 99 
NACHNP 50 
MACHHP 51 
NACHNP 52 
NACHNP 53 
NACHNP 59 
NACHNP 55 
NACHNP 56 
NACHNP 57 
NACHNP 58 
NACHNP 59 
NACHNP 60 
NACHNP 61 
NACHNP 62 
NACHNP 63 
NACHNP 69 
NACHNP 65 
NACHNP 66 
NACHNP 67 
NACHNP 68 
NACHNP 69 
NACHNP 70 


I 


SUBROUTINE NILINE 

C PRINTS COORDINATES WHERE SONIC VELOCITY IS CONFUTED 

C linear INTERPOLATION BETWEEN NESH POINTS I'S USEu 

C CALLED BY - PRINT. 

C *»A*******.tw*»«*w****A*w*«AW«A**tAA*AA*»A9A*A****A**9***A***«***A*A**l 

CDNNON PIlOEilOlliXIlOO) , Y(IOO) 

COHNON / CONI/ ININ i INAX , lUP i lOOWN > ILE > 

1 ITE I JN[N I JNAX I JUP I JLOW t 

2 JTOP I JBOT 

COHNON / C0H2/ AX . ALPHA , DUB > GANl , RTK 

LOGICAL PHYS 

INTEGER PRTFLO i SINOEF 

CONNON /CDN27/ CL i DELTA . DELRT2 i EHACH , ENROOT i 

1 PHYS I PRTFLO I SINDEF , SONVEL . VFACT > 

2 YFACT 

INTEGER BCTYPE 

CONNON /CDN28/ BCTYPE i CIRCFF , FHINV , POR > CIRCTE 

CDNNON /CDN30/ XSLPRTI200) i YSLPRT(200) , RESTI9) 

OINENSION XSONICIIO) 

NPTS • 0 

KNIN ■ JNIN 

KHAX • JNAX 

JP • JNAX * JNIN 

DO 200 K'KNINiKNAX 

J • JP - K 

YPR • YFACI*Y(J) 

PX2 • PXIININiJ) 

H ■ 0 

IF (J .NE. JLOW) GO TO 170 
IF (NPTS .NE. 0) WRITE (6.2070) 

170 CONTINUE 

INN • ININ . 1 
DO 180 I-INN.INAX 
PXl • PX2 
PX2 • PX(I.J) 

IFIPXl .GT. SONVEL .AND. PX2 .GT. SONVEL) GO TO 180 
IF(PX1 .LT. SONVEL .AND. PX2 .LT. SONVEL) GO TO 180 
IF (NPTS .EQ. 0) WRITE (6.2000) 

N • N+1 

RATIO ■ <S0NVEL-PX1)/(PX2-PX1) 

XSONIC(H) • X(I-l) ♦ (X(I)-X(I-l) )*RAT1D 
NPTS ■ NPTS * 1 
XSLPRT(NPTS) • XSONICIN) 

YSLPRT(NPTS) • YPR 
IFINPTS .GE. 200) GO TO 250 
180 CONTINUE 

IFIN .EO. 0) GO TO 200 

WRITE (6. 2090 1 YPR. ( XSONIC ( L I > L'l. N) 

200 CONTINUE 
GO TO 300 
250 CONTINUE 

WRITE(6.2060) 

GO TO 900 
300 CONTINUE 

IFINPTS .EO.OI GO TO 900 
YN • YIJHIN) 

TX ■ Y(JNAX) 

DO 320 N'l.NPTS 

IF (YSLPRTIN) .NE. YN .AND. YSLPkT(N) .NE. YX) GO TO 320 
IF I AK .GT. 0.0 I WRITE (6i2J50l 

IF ( AK .LT. 0.0 .AND. BCTYPE .LO. 1 ) WRITE 16.2050) 

320 CONTINUE 

XNIN • -.75 
XNAX • 1.75 
XINCR ■ .25 

YNIN • -1.0 
YNAX ■ 1.5 

YINCR • .5 

CALL PLTSONIXSLPRI.YSLPRT. XNIN. XNAX. XI NCR. YNIN. YNAX. YINCR. NPTS I 
900 CONTINUE 
RETURN 

2000 FORNATI IHliSBX.lTHSONIC LINE 0UTPUT/59X. 17( 1H*| / 

1 23H SONIC LINE C0aRDlNATES//6X.lHY>10X.7HX-S0NIC/) 

2090 FORNATIIIFIO.S) 

2050 FDRNAT(2OH0»9+«* CAUTION »»♦♦»/ 

* 39H SONIC LINE HAS REACHED A BOUNDARY/ 

1 61H THIS VIOLATES ASSUNPTIONS USED TO DERIVE BOUNDARY CONDITIONS/ 

2 29H SOLUTION IS PROBABLY INVALID) 

2060 FORNAT (20H0*P9*P CAUTION MWM/36H NUNBER OF SONIC POINTS EXDEEOED 
1 200/25H ARRAY OINENSION EXCEE0ED/92H EXECUTION OF SUBROUTINE NlLl 
2NE TERNINATED) 

2070 FQRNAT(2X.13HB0DY LOCATION) 


NILINE 

2 

NILINE 

3 

NILINE 

9 

NILINE 

5 

9N1LINE 

6 

NILINE 

7 

BLANK' 

2 

CONI 

2 

CONI 

3 

CONI 

9 

C0N2 

2 

C0N27 

2 

C0N27 

3 

C0N27 

9 

COH27 

5 

C0H27 

6; 

C0H28 

2 

C0H28 

3 

NILINE 

13 

NILINE 

19 

NILINE 

IS 

NILINE 

16 

NILINE 

17- 

NILINE 

18 

NILINE 

19 

NILINE 

. 20 

NILINE 

21 

NILINE 

22 

NILINE 

23 

NILINE 

29 

NILINE 

25 

NILINE 

26 

NILINE 

27 

NILINE 

28 

NILINE 

29 

NILINE 

30 

NILINE 

31 

NILINE 

32 

NILINE 

33 

NILINE 

39 

NILINE 

35 

NILINE 

36 

NILINE 

37 

NILINE 

38 

NILINE 

39 

NILINE 

90 

NILINE 

91 

NILINE 

92 

NILINE 

93 

NILINE 

99 

NILINE 

95. 

NILINE 

96 

NILINE 

97 

NILINE 

98 

NILINE 

99 

NILINE 

50 

NILINE 

51 

NILINE 

52 

NILINE 

53 

NILINE 

59 

NILINE 

55 

NILINE 

56 

NILINE 

57 

NILINE 

58 

NILINE 

59 

NILINE 

60 

NILINE 

61 

NILINE 

62 

NILINE 

63 

NILINE 

69 

NILINE 

65 

NILINE 

66 

NILINE 

67 

NILINE 

68 

NILINE 

69 

NLLXNE 

70 

NILINE 

71 

NILINE 

72 

NILINE 

73 

NILINE 

79 

NILINE 

75 

NILINE 

76 

NILINE 

77 

NILINE 

.78 

NILINE 

79 

NILINE 

80 

NILINE 

81 


APPENDIX 



SUBROUTINE NEMISKI ISKOLDf Jf ISKNEW) 

C FIND NEn LQCATIQN OF SHOCKWAVE tISKNEW) ON LINE J 

C GIVEN AN INITIAL GUESS FOR LOCATION (ISKOLO). 

C SHOCK LOCATION IS DEFINED AS LOCATION OF SHOCK POINT. 

C IF NO SHOCK IS FOUND* ISKNEW IS SET NEGATIVE. 

C CALLED BY - CDCOLE. 

LOGICAL PHYS 

INTEGER PRTFLO * SINDEF 

COMNON /CONZ7/ CL i DELTA > OELRTZ > ENACH * ENROOT * 

1 PHYS * PRTFLO , SINDEF * SONVEL * VFACT > 

Z YFACT 

IZ ■ ISKOID * Z 
ISKNEW • ISKOLO • 3 
Vi • PX( ISKNEW* J) 
i ISKNEW ■ ISKNEW * 1 
UI • uz 

UZ • PXdSKNEW.JI 

IFIUI iGT. SONVEL .AND. UZ .LE. SONVEL) GO TO ID 
IFdSKNEW .LT. IZ> GO TO S 

C NO SHOCK POINT found* TIP OF SHOCK REACHED. 

ISKNEW • > ISKNEW 
10 RETURN 
END 


NcWtSK 2 
NEWISK 3 
NEWISK 
NEWISK 5 
NEWISK 6 
NEWISK 7 
NEWISK a 
C0HZ7 2 
C0NZ7 3 
COH27 A 
C0NZ7 5 
C0H27 6 

NEWISK 10 
NEWISK II 
NEWISK IZ 
NEWISK 13 
NEWISK lA 
NEWISK IS 
NEWISK 16 
NEWISK 17 
NEWISK IB 
NEWISK 19 
NEWISK 20 
NEWISK 21 


FUNCTION PITCHICNFACT) 

CONFUTE AIRFOIL PITCHING HOMENT ABOUT X • XH* Y*0 
THE INTEGRAL OF I X-XH) (C PUPPER-CPLOWER) IS INTEGRATED 
BY PARTS TO GIVE AN INTEGRAL IN THE JUNP IN P PLUS A 
CONSTANT EOUAL TO THE JUMP IN P AT X • 1. TINES THE 
NOHENT ARN AT THE TRAILING EDGE 
CALLED BY - PRINTl* SOLVE. 

CONNON P(IOZ*101)*XdOO) i Y(100> 

COHHON / CONI/ ININ * IHAX * lUP * IDOWN * ILE * 

1 ITE * JNIN * JHAX * JUP > JLOW * 

2 JTOP * JBOT 

CONNON / C0N7/ CJUP * CJUPl * CJLOW * CJLDwl 

CONNON /C0N30/ xldOO) > ARG(IOO) * RESTI20A) 

C SET XN TO QUARTER CHORD 

XH . .25 
K • 0 

DO 10 1-IIE*ITE 
K • K A I 

PTOP • CJUP*PtJUP*I) - CJUP1*P(JUP+1*1I 
PBOT ■ CJLOWPPIJLOW*!) - C JLOWiPPdLOW-1* I ) 

ARGIKI • PTOP - PBOT 
XIIK) • Xdl 
10 CONTINUE 

CALL TRAP(XI*ARG*K*SUN) 

PITCH ■ CHFACT*td.-XN)*ARGIK) - SUN) * (-2.) 

RETURN 

END 


C 

C 

C 

C 

C 

C 


PITCH Z 
PITCH 3 
PITCH A 
PITCH 5 
PITCH 6 
PITCH 7 
PITCH 0 
PITCH 9 
BLANK 2 
CONI Z 
CDNl 3 
COHl A 
C0N7 2 
PITCH 13 
PITCH lA 
PITCH 15 
PITCH 16 
PITCH 17 
PITCH 18 
PITCH 19 
PITCH 20 
PITCH 21 
PITCH 22 
PITCH 23 
PITCH 2A 
PITCH 25 
PITCH 26 
PITCH 27 
PITCH 2B 


SUBROUTINE PLTSDN I X*Y> XAXHIN* XHAX* XINCR* YAXNIN* YHAX* Y INCR* NPTS) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THIS IS A NOOIFIED VERSION OF PRNPLT AND 
XHax* XINCR* YNAX* YINCR MUST BE SUPPLIED. 
XNIN. AND THIN NUST ALSO BE SUPPLIED. 
PRINTER PLOT ROUTINE N. S. ITZKDWITZ HAY*1967 
PLOTS THE <NPTS< POINTS GIVEN BY. Xd)*Yd) 

ON A 51 X 101 GRID USING A TOIAL OF 56 LINES ON 
THE PRINTER. 

IF EITHER INCRENEHTAL STEP SIZE IS ZERO* THE 
PROGRAN EXITS. 

NEITHER OF THE INPUT ARRAYS ARE DESTROYED. 

CALLED BY - HILINE. 


DINENSION XINPTSI* YINPTS)* IGRlDdOS)* XAXlSdl) 
OIHENSION I8SI9) 


PLTSON Z 
PLTSDN 3 
PLTSON A 
PLTSON 5 
PLTSON 6 
PLTSON 7 
PLTSON a 
PLTSON 9 
PLTSON 10 
PLTSON 11 
PLTSON 12 
PLTSON 13 
PLTSON lA 
PLTSON 15 
PLTSON 16 
PLTSON 17 
PLTSON IB 


INTEGER BLANK * DOT * STAR * DASH 

DATA BLANK * DOT * STAR * DASH / IH * IH,* IH** IH-/ 

data 18S/1KB.1H0*1HD*1HY*1H *1HS*1HL*1HI.1HT/ 

WRITE(6*900) 

WRITEI6.910) 

IF (XINCR .EO. 0. .OR. YINCR .EQ. 0.1 GO TO BOO 

YRNGE ■ YNAX - YAXNIN 

XRNGE • XNAX - XAXNIN 

YVAL - YRNGE * .02 

XVAL • XRNGE * .01 

JSIT • 1FIX( 51.»(YHAX/YRNGE) ) ♦ 1 

OXV • 1,0 / XVAL 

OYV • 1.0 / YVAL 

I7ER0 ■ YNAX » OYV ♦ 1.5 

JZERO • 103.5 - XNAX * OXV 

IF dZERO .GT. 103 .OR. JZERO .LT. A) JZERO « 2 

FIZERO • IZERO 

FJZERO • JZERO 

IGRID(l) ■ BLANK 

IGRIDI2I - DOT 

IGRID(IOA) ■ DOT 

IGRlDdOS) • BLANK 

FIZER5 > FIZERO * .5 

FJZER5 • FJZERO * .5 

C NCiPW IS THE NUNBER OF PRINT WHEELS USED TO 

C SPAN THE BODY LENGTH. 

NOPW ■ OXV 

C JS - THE NUNBER OF PRT WHEEL POSITIONS TO BE 

C FILLED AT EACH END OF THE WORD IBODY SLIT* 

JS • C 

IF (NOPW .GT. 4) JS • (NOPW-9) / 2 

WRITE (6.905) 

WRITE (6*903) 

C 

DD 30 I>1*S1 
C 

DO 2 J.3.1G3 
IGRID(J) • BLANK 

2 CONTINUE 

C SEARCH ARRAY FOR POINTS ON THIS LINE. 

DD 10 K.1*NPTS 
ITEST • FIZER5 - Y(K) » OYV 
IF (ITEST .N£. 1) GO TO 7 
J • FJZER5 * X(K) * OXV 
IF (J .GT. 103) J • 103 
IF (J .LT. 31 J • 3 
IGRID(J) • STAR 
7 CONTINUE 

IF (JSLT .EO. I) GO TO 9 
GO TO 10 
9 CONTINUE 

C WRITE ABDDY SLIT* IF THIS IS THE JO LINE. 

J ■ JZERO * 1 
IF (JS .EO. 0) CD TO A 
DO 3 L‘1*JS 

IF (IGRID(J) .NE. STAR) IGRID(J) • DASH 
J • J ♦ 1 

3 CONTINUE 
A CONTINUE 

DO 5 L-l*9 

IF <IGR1D(JI .NE. STAR) tCRID(J) • IBS(L) 

J ■ J A 1 

5 CONTINUE 

IF (JS .EB. 0) GO TO 10 
DO 6 L-l.JS 

IF (IGRID(J) .HE. STAR) IGRIDU) • DASH 
J ■ J ♦ 1 

6 CONTINUE 
10 CONTINUE 

IF (HODd.lO) .EQ. 1) GO TO 13 
WRITE (6*901) IGRID 
GO TO 30 
13 CONTINUE 
FI ■ I - 1 

YAXIS • YNAX - FI * YINCR • .1 
IF (ADS(YAXIS) .LT. YAXNIN) YAXIS • D. 

WRITE (6*902) TAXIS. ( I GRID (J ) *J* 1*105) 

30 CONTINUE 

WRITE (6*903) 

WRITE (6*905) 

DO AO Hwl.ll 


LOOP TO SET UP ONE LINE EACH TINE THRU. 
BLANK THE LINE TO BE PRINTED. 


PLTSON 

19 

PLTSDN 

20 

PLTSON 

21 

PLTSON 

22 

PLTSON 

23 

PLTSON 

2A 

PLTSON 

25 

PLTSON 

26 

PLTSON 

27 

PLTSON 

2a 

PLTSON 

29 

PLTSON 

30 

PLTSON 

31 

PLTSDN 

32 

PLTSON 

33 

PLTSON 

3A 

PLTSON 

35 

PLTSON 

36 

PLTSON 

37 

PLTSON 

3S 

PLTSON 

39 

PLTSON 

AO 

PLTSON 

A1 

PLTSON 

A2 

PLTSON 

A3 

PLTSON 

AA 

PLTSON 

A5 

PLTSON 

A6 

PLTSON 

A7 

PLTSON 

A8 

PLTSON 

A9 

PLTSON 

50 

PLTSON 

51 

PLTSON 

52 

PLTSON 

53 

PLTSDN 

5A 

PLTSON 

55 

PLTSON 

56 

PLTSDN 

57 

PLTSON 

SB 

PLTSON 

59 

PLTSON 

60 

PLTSON 

61 

PLTSON 

62 

PLTSON 

63 

PLTSON 

6A 

PLTSON 

65 

PLTSON 

66 

PLTSON 

67 

PLTSON 

6B 

PLTSON 

69 

PLTSON 

70 

PLTSON 

71 

PLTSON 

72 

PLTSON 

73 

PLTSON 

7A 

PLTSDN 

75 

PLTSON 

76 

PLTSON 

77 

PLTSON 

7B 

PLTSDN 

79 

PLTSON 

SO 

PLTSON 

61 

PLTSDN 

BZ 

PLTSON 

S3 

PLTSON 

BA 

PLTSON 

85 

PLTSON 

86 

PLTSON 

87 

PLTSON 

88 

PLTSON 

89 

PLTSON 

90 

PLTS ON 

91 

PLTSON 

92 

PLTSON 

93 

PLTSON 

9A 

PLTSON 

95 

PLTSON 

96 

PLTSON 

97 

PLTSON 

96 

PLTSON 

99 

PLTSON 

100 

PLTSON 

101 

PLTSON 

102 

PLTSON 

103 



fM • 11 - H 

xixis(n) ■ xnix - xiNCR * fh 
IF IXXXISIh) .LT. XAXHIN) XAXIS(n) a XAXrllh 
AO CONTINUE 

WRITE (6«90A1 XAXISj NPTS 
RETURN 

eOO WRITE (6f9800) 

CALL EXIT 


<500 FORHATIlHl»58XflTHSONIC LINE 0UTPUT/59X< 17(1H*» / I 

901 FORnAT(lAX>109Al) 

902 FORKATI IX. FlO.lj 2X> 1H+. 105 Al. IH* I 


903 F0RHAI(15X,103(1H.) ) 

90A FORNATITX. IKFIO.2). 2H (.IA.5H PTS > > 

905 F0RMAT(16X.11<1H+,9X1 I 

910 FORMAT! 35X.15HS0NIC LINE PLOT.10X.6HY VS X.lOX, 


1 16H » ■ SONIC POINT/! 

9600 FORMAT! A6H1SCALING ERROR IN PRNPLT. 


EXECUTION TERMINATED > 


END 


PLTSON lOA 
PLTSJN 105 
PLTSON 106 
PLTSJN 107 
PLTSON 108 
PLTSON 109 
PLTSON 110 
PLTSON 111 
PLTSON 112 
PLTSON 113 
PLTSON ilA 
PLTSON 115 
PLTSON 116 
PLTSON 117 
PLTSON 116 
PLTSON 119 
PLTSON 120 
PLTSON 121 
PLTSON 122 
PLTSON 123 
PLTSON 12A 


C 

C 

C 

c 

c 

c 

c 


SUBROUTINE PRBOOY 

PRINTS OUT BOOT GEOMETRY 

IF PHYS • .TRUE. ALL DIMENSIONS ARE NORMALIZED 8Y 

airfoil chord 

IF PHYS > .FALSE. ALL DIMENSIONS EXCEPT X ARE 

NORMALIZED BY CHORD LENGTH AND 
THICKNESS RATIO. 

CALLED BY - BODY. 


COMMON / CGM6/ FL!1J0) > FXL!10U)> FU!100) . FXU!10J)> 

1 CAMfiERllUOl. THICKIIOUI.VOL > XFOILIlOO). IFOIL 

LOGICAL PHYS 

INTEGER PRTFLO . SIMOEF 

COMMON /C0M27/ CL . DELTA . 0ELRT2 > EMACH . ENROOT 

1 PHYS . PRTFLO , SINDEF . SONVEL . VFACT 

2 YFACT 


WRITEI6. 10001 

C FIND MAXIMUM THICKNESS AND CAMBER 

THMAX ■ C. 

CAMAX • 0. 

DO 1C I • 1. IFOIL 

THMAX - AMAXIITHNAX.THICKII) ) 

CAMAX • AMAXllCAMAX.CAMBERI I I I 
10 CONTINUE 

THMAX • 2.tTHHAX 
IF! PHYS) 60 TO 100 

C PRINTOUT IN SIMILARITY VARIABLES 

WRITEI6.10C1) THMAX 
WRITE!6.10D2) VOL.CAMAX 
WRITbK.1003) 

DO 90 I -1. IFOIL 

WRITE <6.1005) XF0IL<I).FUII).FXU!I).FLII)>FXL(I).THICKI1). 
1 CAMBER! I) 

90 CONTINUE 
RETURN 

100 CONTINUE 

c printout in physical VARIALBES 

THMAX • DELTAPTHMAX 
CAMAX • OELTA*CAMAX 
WRITEI6.1C66) THMAX 
VOLUME • VOLPDELTA 
URITE16.1002) VOLUME. CAMAX 
WRITEI6.1009) 

DO 110 I-l.IFOIL 
YUP ■ DELTAPFUIII 
YXUP • DELTAPFXUll) 

YLO . DELTAPFLII) 

YXLO • DELTAPFXUn 
TH ■ DELTAPTHICKII) 

CA • DELTAPCAMBERI I) 

WRITE 16. 1005) IXFOILID.YOP.YXUP.YLO.YXLO.TH.CA) 

110 CONTINUE 
RETURN 

1000 F0RMaT!1H1.55X.23HAIRF0IL GEOMETRY 0UTPUT/56X.23I1HP)//) 

1001 F0RMAT!33H PRINTOUT IN SIMILARITY VARIABLES. 

P 98X. 15HMAX THICKNESS '.FIZ.B) 


PRBOOY 2 
PRBOOY 3 
PRBODY 9 
PRBOOY 5 
PRBOOY 6 
PRBOOY 7' 
PRBODY 8 
PRBODY 9 
PRBOOY 10 
CUM6 2 
C0M6 3 
C0M27 2 

CDM27 3 
C0M27 9 

C0M27 5 

C0M27 6 

PRBODY 13 
PRBODY 19 
PRBOOY 15 
PRBODY 16 
PRBODY 17 
PRBODY IH 
PRBOOY 19 
PRBODY 20 
PRBODY 21 
PRBODY 22 
PRBOOY 23 
PRBOOY 29 
PRBOOY 25 
PRBOOY 26 
PRBOOY 27 
PRBOOY 2d 
PRBODY 29 
PRBOOY 30 
PRBOOY 31 
PRBOOY 32 
PRBOOY 33 
PRBODY 39 
PRBODY 35 
PRBOOY 36 
PRBOOY 37 
PRBOOY 38 
PRBOOY 39 
PRBODY 90 
PRBODY 91 
PRBODY 92 
PRBOOY 93 
PRBODY 99 
PRBODY 95 
PRBODY 96 
PRBODY 97 
PRBOOY 98 
PRBODY 99 
PRBOOY 50 
PRBODY 51 
PRBODY 52 
PRBOOY 53 


1002 F0RMATI16H AIRFOIL VOLUME*. F12.S.53X.1SHMAX CAMBER -.712.8// 

1 2X.11HINPUT GRID.10X.19HUPPER SURFACE. 17X. 19HL0UER SURFACE) 

1003 FaRMAT(8X,lHX,lX.2I15X.lHF,9X,5riDF/DX),llx.9HTHICKNESS.9X. 

1 6HCAMBER/) 

1C09 F0RMATIBX.1HX.1X.2I1SX.1HY.9X.SHDY/DX).11X,9HTH1CKNESS.9X. 

I 6HCAMBER/) 

1005 FORMAT! 1X.F12.B. 5X.2F12. B.2I 6X. 2F12.8 ) ) 

1006 FORMAT! 58H PRINTOUT IN PHYSICAL VARIABLES NORMALIZED BY CHORD LENG 
ITH, 23X. 15HMAX THICKNESS -.F12.8) 

END 


PRBOOY 59 S 

PRBODY 55 g 

PRBOOY 56 X 

PRBODY 57 H 

PRBOOY 58 « 

PRBOOY 59 

PRBOOY 6U 

PRBODY 61 . 

PRBODY 62 

PRBOOY 63 




IE • IS + t 

itRltc C6>4CR) <FCP(It>l'[S>IEI 
IF IKUTTAI GO TO 10 
WRITE (b>GOS) 

GO TO 20 
10 CONTINUE 

WRITE (E<«06) 

20 CONTINUE 

ALPHVF « ALPHA * VFACT 
WRITE (6>911I 

IF ( PHYS t WRITE I6>9U9) ENACH. DELTA 
WRITE (btODTI ALPHVFf AK 
DUBOEL'DUBPDELTA 
VOL0iL-VOL»DELTA 

IF (AK .6T. 0.01 WRITE(6.R0')) OUBOeL.VOLOEL 

IF I PHYS ) WRITE(6«910)CPFACT.CDFACT.CHFACr»CLFACI.YFACTfVFACT 

CALL PRINTl 

CALL PRTHC 

CALL HACHHP 

IF I ABORT I GO TO 60 

CALL FIXPLT 

IF (BCTYPE .EO. 1) GO TO AO 
IF (BCTYPE .EO. 31 GO TO AO 
CALL PRTWAL 
AO CONTINUE 
CALL RHINE 

IF (PRTFLO .cO. 1) GO TO SO 
CALL PRTFLO 
SO CONTINUE 
CALL CDCOLE 
60 CONTINUE 
RETURN 

»00 F0RNAT(lHl.SSX.lB(lrt*)/59X»lH*,16X>lH*/59XtlBH* FINAL OUTPUT */ 

1 S9X«1H«>16X>1H*/S9X,1BI1H*I1 
901 FORRATdAHO PRINTOUI IN >2AA>A2. UH VARIABLES.) 

9C2 FDRHATIAIHO DEFINITION OF SIHILARITY PARAMETERS BY >2AAI 
903 FORMAT) 25HC BOUNDARY CONDITION FOR .3AA) 

GOA FDRMAT(2THL DIFFERENCE EQUATIONS ARE jTAA) 

9uS F0RMAT(37HC LIFT COEFFICIENT SPECIFIED BY USER.) 

906 FQRMAT(30H0 KUTTA CONDITION IS ENFORCED.) 

GOT F0RMAT(13X.THALPHA •. F12.7/17X, 3HK ..712,7) 

GOB F0RHAT(2X.1BHD0UBLET STRENGTH *. F1Z.7/AX, 16HA1RF0IL VOLUME •> 

1 FIZ.T) 

909 FDRMAT(1AX.6HMACH ..FIZ. 7/13X, 7HDELTA ..F12.7) 

910 F0RMAT(1H0.BX,3BHPARAMETERS USED TO TRANSFORM VARIABLES/ 

1 1BX.2OHT0 TRANSONIC SCALING//12X,8HCPf ACT -F12.7/ 

2 IZX.eMCOFACT •, F12.7/12X, BHCMFACT ..F12.7/12X. BHCLFACT «,F12.7 

3 /13X.7HYFACT ..FIZ.T/ 13X.7HVFACT .F12.7) 

911 FDRMAT(IHD) 


PRINT 57 
PRINT SB 
PRINT 59 
PRINT 60 
PRINT 61 
PRINT 62 
PRINT 63 
PRINT 6A 
PRINT 65 
PRINT 66 
PRINT 67 
PRINT 6B 
PRINT 69 
PRINT 70 
PRINT 71 
PRINT 72 
PRINT 73 
PRINT 7A 
PRINT 75 
PRINT 76 
PRINT 77 
PRINT 76 
PRINT 79 
PRINT BO 
PRINT Bl 
PRINT 82 
PRINT B3 
PRINT BA 
PRINT 65 
PRINT B6 
PRINT BT 
PRINT 88 
PRINT 89 
PRINT 90 
PRINT 91 
PRINT 92 
PRINT 93 
PRINT 9A 
PRINT 95 
PRINT 96 
PRINT 97 
PRINT 98 
PRINT 99 
PRINT 100 
PRINT 101 
PRINT 102 
PRINT 103 
PRINT ION 
PRINT 105 
PRINT 196 
PRINT 107 
PRINT 108 


SUBROUTINE PRINTl 

C PRINTS PRESSURE COEFFICIENT AND MACH HUMBER 

c ON Y-9 LINE. AND PLOTS CP ALONG SIDE OF PRINT. 

c Called by - tsfoil. print. 


COMMON 

P (102.101), 

,X(100) . 

YdOO) 



COMMON / COMl/ 

IMIN . 

IMAX . 

lUP . 

(DOWN . 

ILE . 

1 

ITE , 

JMIN . 

JMAX . 

JUP . 

JLOW . 

2 

JTOP . 

jaoT 




LOGICAL 

ABORT 





COMMON / C0M3/ 

IREF . 

ABORT . 

ICUT , 

KSTEP 


COMMON / CDMT/ 

CJUP . 

CJUPl . 

CJLOW 1 

CJLOWl 


COMMON /C0P.13/ 

cofact . 

CLFACT , 

CMFACT . 

CPFACT . 

CPSTAR 

COMMON /C0H23/ 

CPLCIOO) . 

CPUdOO) 



LOGICAL 

PHYS 





INTEGER 

PRTFLO . 

SIMOEF 




COMMON /C0M27/ 

CL > 

DELTA . 

DELRT2 . 

EMACH . 

EMROOT ( 

1 

PHYS > 

PRTFLO . 

SIMOEF . 

SONVEL . 

VFACT > 

2 

YFACT 





COMMON /C0M30/ 

EMlLdOO). 

EMlUdOO)i 

• YMdOO). 

RESTdOA) 



REAL LIFT 

DIMENSION L1NEK60) . TMAC(2) 


- DATA TMAC / 2HM1. 2HKI/ , IB /IH /, IL / IHL/.IU /IHU/. IS/IH*/ 

C ' OAtA IBB/ IHB/ " - . . - . 


PRINTl 2 
PRINTl 3 
PRINTl 9 
PRINTl 5 
PRINTl 6 
PRINTl 7 
BLANK 2 

com 2 

COMl 3 
COMl A 
COM3 2 
COM3 3 
C0M7 2 
C0M13 2 
COM25 2 
COM2? 2 
C0M27 3 
C0M27 A 
C0M27 5 
C0M27 6. 
PRINTl 15 
PRINTl 16 
PRINTl 17 
PRINTl 18 
PRINTl 19 
PRINTl 20 
PRINTl 21 
PRINTl 22 




CL • LIFT (CLFACT) 

CM ■ PITCH (CMFACT) 

CPNIN • 1.0E37 

CPMAX • -CPHIN 
lEM - 0 

CJOl > -TULQW)/(Y(JUP)-Y(JLOW)) 

CJC2 . Y(JUP)/(Y(JUP)-Y(JLOW) ) 

DO 10 I'lMIN.IMAX 

UL . CJLOw.PXd.JLOW) - CJLOWiPPXd.JLOV-l) 

IF(I .CT. ITE) UL-CJ01*PX(I. JUP) * CJ02*PX('I.JL0W) 

IF(I .LT. ILE) UL-CJOl.PXd. JUP) t CJ02PPX( I. JLD)() 

CPL(I) ■ -2.0 * UL * CPFACT 
EMlLd) • EMACHKUL) 

IF (EMlLd) .GT. 1.3) lEM ■ 1 

UU • CJUP .PXd.UUP) - CJUPl *PX(1. JUP'Al) 

IF (I .GT. ITE) UU . UL 
IF d .LT. ILE) UU . UL 
CPU(I) • -2.0 ♦ UU * CPFACT 
EMIU(I) • EMACHKUU) 

IF (EMIU(I) .GT. 1.3) lEM • 1 
CPMAX • AMAX1(CPMAX.CPU( I). CPL(D) 

CPMIN ■ AMlNKCPMIN.CPUd). CPL(D) 

10 CONTINUE 

CPLARG ■ AMAX1(CPMAX.ABS(CPMIN)) 

UNPCOL • CPLARG / 29. 

C LOCATE CP* FOR PRINTER PLOT 

COL ■ -CPSTaR / UNPCOL 

NCOL . SlGN((ABS(C0L)f.5). COL) 

NCDLS • NCOL * 30 

C PRINT SINGLE VARIABLES 

IF (IREF .EO. 2) WRITE (6.270) 

IF (IREF .EO. 1) WRITE (6.2B0) 

IF (IREF .£0. 0) WRITE (6.290) 

WRITE (6.260) 

WRITE (6.200) CL. CM. CPSTAR 

IF (CPL(IHIN) .LT. CPSTAR .AND. CPL(1MIN*1) .GT. CPSTAR) GO TO 70 
WRITE (6.210) 

XT ■ 2 

IF ( PHYS ) XT > 1 

C PRINT COLUMN HEADERS. 

WRITE (6.220) THAC(KT) . TMAC(KT) 

00 A0'1*IMIN.IMAX 

DO 30 K.1.60 
LINEl(K) • IB 
30 CONTINUE 

COL • -CPU(I) / UNPCOL 

NCOL • SIGN((ABS(COL) * .5) . COL) 

NCQLU • NCOL * 30 

LINEKNCOLU) • lU 

COL • -CPLII) / UNPCOL 

NCOL • SIGN((ABS(COL) * .5) . COL) 

NCOLL ■ NCOL ♦ 30 

LINEKNCOLL) • IL 

IF (NCOLL .ES. NCOLU) LINEKNCOLL) > IBB 
IF (lABS(NCDLS) .LT. 61) LINEKNCOLS) • IS 

IF (I .EO. ILE) WRITE (6.230) 

WRITE (6.250) I. X(I). CPL(I). EHlLd). CPU(I). EMlU(l). LIHEl 
IF (I .£0. ITE) WRITE I6.2A0) 

AO CONTINUE 

IF ( lEM .EO. 0 ) GO TO 50 
IF ( PHYS ) WRITE (6.300) 

50 CONTINUE 

DO 60 J-JMIN.JMAX 
YM(J) ■ Y(J) ♦ YFACT 
60 CONTINUE 

WRITE (6.310) JHlN.JMAX.(rH(J).J>JMIN.JMAX) 

RETURN 
70 CONTINUE 

WRITE (6.320) 

ABORT • .TRUE. 
return 


PRINTl 

23 

PRINTl 

2A 

PRINTl 

25 

PRINTl 

26 

PRINTl 

27 

PRINTl. 

2B 

PRINTl 

29 

PRINTl 

30 

PRINTl 

31 

PRINTl 

32' 

PRINTl 

33 

PRINTl 

3A 

PRINTl 

35 

PRINTl 

36 

PRINTl 

37 

PRINTl 

36. 

PRINTl 

39> 

PRINTl 

AO 

PRINTl 

AX 

PRINTl 

A2 

PRINTl 

A3 

PRINTl 

AA 

PRINTl 

AS 

PRINTl 

A6 

PRINTl 

A7 

PRINTl 

A8 

PRINTl 

A9 

PRINTl 

50 

PRINTl 

51 

PRINTl 

52 

PRINTl 

53 

PRINTl 

5A 

r-RINIl 

55 

PRINTl 

56 

PRINTl 

57 

PRINTl 

SB 

PRINTl 

59 

PRINTl 

60 

PRINTl 

61 

PRINTl 

62 

PRINTl 

63 

PRINTl 

6A 

PRINTl 

65 

PRINT! 

66 

PRINTl 

67 

PRINTl 

68 

PRINTl 

69 

PRINTl 

70 

PRINTl 

71 

PRINTl 

72 

PRINTl 

73 

PRINTl 

7A 

PRINTl 

75 

PRINTl 

76 

PRINTl 

77 

PRINTl 

78 

PRINTl 

79 

PRINTl 

BO 

PRINTl 

81 

PRINTl 

82 

PRINTl 

83 

PRINTl 

BA 

PRINTl 

83 

PRINTl 

86 

PRINTl 

87 

PRINTl 

B8 

PRINTl 

89 

PRINTl 

9U 

PRINTl 

91 

PRINTl 

92 

PRINTl 

93 . 

PRINT! 

9A 

PRINTl 

95 

PRINTl 

96 

PRINTl 

97 

PRINTl 

9B 

PRINTl 

99 

PRINTl 

100 

PRINTl 

101 

PRINTl 

102 

PRINTl 

103 

PRINTl 

lOA 

PRINTl 

105 

PRINTl 

106 

PRINTl 

107 

PRINTl 

108 



« 200 F0RMAT(BSX>2BHB • BEFORE OR BEHIND AIRF0IL/10X> <iHCL -fFlO.OfOlX* 

* 1 2SHU • UPPER AIRFOIL SURFACE/10X>AHCH •>F1Q.6»61X> 

2 25HL ■ LOWER AIRFOIL SURFACE/9Xj 9HCPA -fFlO.OfOlXi 

3 21H* - CRITICAL PRESSURE) 

210 FaRHAT(lK0>27X>5HL0wER>23X>5HUPPER/2eXiAHY>0->24X>AHY*0+) 

220 F0RNAT(3X>lHI>aXf lHXtl0X>2HCP>10X>A2>l4X>2HCP>10Xf A2/ ) 

234 FDRHAT(2SX,20HAIRF0IL leading EDGE>45X>20HAIRFaiL LEADING EDGE) 

240 F0RMAT(2SXf 21HAIRF0IL TRAILING EOGEf 44X,21HAIRF0IL TRAILING EDGE) 
250 FORHATtlH j 13* 3F12.6> 4X>2F12.Si 2X> 60A1) 

260 P0RHAT(60H FORCE COEFFICIENTS* PRESSURE COEFFICIENT* AND NACH NUN 
IBER /2X>S9H(0R SIMILARITY PARAMETER) ON BODY AND DIVIDING STREAN L 
2INE.) 

270 FDRNAT(1H1*S2X*2BKFINAL OUTPUT FOR COARSE NESH//) 

2B0 FaRNAT(lHl*52X*2BHFINAL OUTPUT FOR HEOlUH NESH//) 

290 F0RMATUH1*53X*26HFINAL OUTPUT FOR FINE NESH//) 

300 FDRNAT(20H044**4 CAUTION ♦*♦♦*/ 

1 32H MAXINUN MACH NUMBER EXCEEDS 1.3/ 

2 69H SHOCK JUMPS IN ERROR IF UPSTREAM NORMAL NACH NUMBER GREATER T 
3HAN 1.3) 

310 FaRMATI///16X*13HY-GRI0 VALUESiSX* THY < J ) J>*I4.3H T0*I4/ 

1 (10X*6F12.6) ) 

320 FORNAT(1HO*//*60H DETACHED SHOCK WAVE UPSTREAM OF X-NESH.SOLUTION 
ITERMINATED.) 


PRINTl 109 
PRINTl 110 
PRINTl 111 
PRINTl 112 
PRINTl 113 
PRINTl 114 
PRINTl 115 
PRINTl 116 
PRINTl 117 
PRINTl 116 
PRINTl 119 
PRINTl 120 
PRINTl 121 
PRINTl 122 
PRINTl 123 
PRINTl 124 
PRINTl 125 
PRINTl 126 
PRINTl 127 
PRINTl 128 
PRINTl 129 
PRINTl 130 
PRINTl 131 
PRINTl 132 
PRINTl 133 


SUBROUTINE PRTFLD 

PRINTS PRESSURE COEFFICIENT* FLOW ANGLE AND 
MACH NUMBER IN FLOW FIELD. NUMBER OF J LINES 
PRINTED IS DETERMINED FROM THE INPUT VALUE OF 
PRTFLO. 

PRTFLQ • 1 * NONE. 

PRTFLO • 2 * ALL J LINES EXCEPT JO. 

PRTFLO • 3 > THREE J LINES AROUND JERROR. 
CALLED BY ~ PRINT. 

COMMON P<102*101)*X(100) * YilOO) 

COMMON / COMl/ IMIN * IMAX . lUP * lOOWN « ILE * 

1 ITE * JMIN * JMAX > JUP * JLOW * 

2 JTOP * JBOT 

COMMON /C0M13/ COFACT > CLFACT * CMFACT > CPFACT • CPSTAR 

LOGICAL OUTERR 

COMMON /C0M1B7 ERROR * II * 12 , lERROR * JERROR > 

1 OUTERR * EMU( 100*21 > VCilOO) * 

2 WI > OCIRC * POLD(100*2) 

LOGICAL PHYS 

INTEGER PRTFLO * SIMOEF 

COMMON /C0M27/ CL * DELTA * 0ELRT2 > EMACH * ENROOT . 

1 PHYS . PRTFLQ i SIMDEF > SONVEL * VFACT * 

2 YFACT 

COMMON /C0M30/ JLIN(IOO)* REST(304) 

DIMENSION TMAC(2)* CPPRI3)* PYPROl, YPRINTO)* PRT(IO)* EMK3) 
DATA TMAC / 2HM1* 2HK1/ 

DATA PRT / 4HMACH*4H NUM*4HBERS*4H > 4H * 

1 4HS IMI*4HLARI*4HTY P*4HARAM*4HETER/ 

IF (PRTFLO. EO. 2) GO TO 25 

C LOCATE LINES AROUND JERROR. 

JL • 3 

IF (JERROR .EO. JMIN) GO TO 10 

IF (JERROR .EO. JLOh) GO TO 20 

IF (JERROR .EO. JUP ) SO TO 13 

IF (JERROR .EO. JMAX) SO TO 20 

JLIN(l) • JERROR - 1 
JLIN(2) • JERROR 
JLINO) • JERROR * 1 
GO TO 30 
10 CONTINUE 

JLIN(l) • JERROR 

JLIN(2> • JERROR * 1 

JLIN(3) • JERROR t 2 

GO TD 30 
20 CONTINUE 

JLIN(l) • JERROR - 2 

JLIN(2) ■ JERROR - 1 

JLINO) • JERROR 

GO TO 30 


C 

C 

C 

C 

C 

C 

C 

c 


PRTFLD 2 
PRTFLD 3 
PRTFLO 4 
PRTFLD 5 
PRTFLD 6 
PRTFLO 7 
PRTFLD 8 
PRTFLO 9 
PRTFLD 10 
PRTFLO 11 
PRTFLD 12 
BLANK 2 
COMl 2 
COMl 3 
COMl 4 
C0M13 2 
COMie 2 
C0H18 3 
C0N18 4 
C0M18 5 
COM27 2 
C0H27 3 
COM2? 4 
C0M27 5 
C0N27 6 
PRTFLO IB 
PRTFLO 19 
PRTFLD 20 
PRTFLO 21 
PRTFLD 22 
PRTFLD 23 
PRTFLO 24 
PRTFLD 25 
PRTFLD 26 
PRTFLD 27 
PRTFLO 28 
PRTFLD 29 
PRTFLD 30' 
PRTFLD 31 
PRTFLD 32 
PRTFLD 33 
PRTFLD 34 
PRTFLD 35; 
PRTFLO 36 
PRTFLD 37 
PRTFLO 38 
PRTFLD 39 
PRTFLO 40 
PRTFLD 41 
PRTFLD 42 
PRTFLO 43 
PRTFLD 44 


25 CONTINUE 

JL » JMAX - JMIN 4^ 

_ J Fill JLIN ARRAY WITH VALUES OF J. 

DO 28 J*JHIN*JMAX 
JLIN(K) • J 
K • K 4 1 
28 CONTINUE 
30 CONTINUE 


PRINT FLOW FIELD IN 3 J LINES PER PAGE. 

DO 100 MPR • 1*JL*3 
MPREND • MIN0(MPR42*JL) 

DO 40 M.MPR* MPREND 
MO ■ M-MPR41 
JO • JLIN(M) 

YPRINT(MQ) • Y(JO)»YFACT 
40 CONTINUE 

WRITE PAGE HEADER. 

IS • 1 

IF ( PHYS ) IS ■ 6 
IE • IS 4 4 

WRITE (6*900) (PRT(I),I-IS.'IE) * CPSTAR 
WRITEI6* 9D1) (JLINIM)*M*MPR*MPR£ND) 

WRITE(6> 902)(YPRINT(H)*H>1*M0) 

KT • 2 

IF ( PHYS ) KT ■ 1 

WRITE (6*903) TMAC(KT), TMAC(KT)* THAC(KT) 

DO 60 I-IMIN*IMAX 
DO 50 H-MPR*HPRENO 
MO • M-MPR41 
J • JLIN(M) 

U • PX(I*J) 

CPPR(MO) • -2.0 4 CPFACT 4 u 
PYPR(MO) ■ VFACT4PY(I*J) 

EMKKO) • EMACHKU) 

SO CONTINUE 

WRITE (6*904) ( I*X( I )*( (CPPR ( N)*PYPR(M)* EMI ( M ) ] *M>1*M0) ) 

60 CONTINUE 
IDO CONTINUE 
RETURN 

900 F0RMAT(47H1PRESSURE COEFFICIENTS, FLOW ANGLES* AND LOCAL *9A4/ 

1 20H ON Y-CONSTANT LINES/9H CPSTAR -*F12.7//) 

901 FORMAT! 13X*3(15X*2HJ-*I4*15X)) 

902 F0RMAT(13X*3(12X*2HY-*Fl0.6*l2Xn 

903 F0RMAT(4H0 I, 8X*1HX*5X*3( 6X* 2HCP,8X* SHTHETA, 7X* A2*6X ) // ) 

904 FORMAT! IX* 13* 2X, F10.6* IX* 3( 2X, 3F11.6* IX ) ) 


PRTFLO 45 
PRTFLD 46 
PRTFLO 47 
PRTFLO 48 
PRTFLD 49 
PRTFLO 50 
PRTFLO 51 
PRTFLO 92 
PRTFLD S3 
PRTFLD 54 
PRTFLO 55 
PRTFLD 56 
PRTFLD 57 
PRTFLD 98 
PRTFLD 59 
PRTFLD 60 
PRTFLD 61 
PRTFLD 62 
PRTFLD 63 
PRTFLD 64 
PRTFLD 65 
PRTFLO 66 
PRTFLD 67 
PRTFLD 68 
PRTFLD 69 
PRTFLO 70 
PRTFLO 71 
PRTFLO 72- 
PRTFLO 73 
PRTFLD 74 
PRTFLD 79 
PRTFLO 76 
PRTFLD 77 
PRTFLO 78. 
PRTFLD 79 
PRTFLD SO 
PRTFLO 81 
PRTFLD 82 
PRTFLD 83 
PRTFLD 84 
PRTFLD 85 
PRTFLD 86 
PRTFLD 87 
PRTFLD 88 
PRTFLD 89 
PRTFLD 90 
PRTFLD 91 
PRTFLD 92 
PRTFLO 93 
PRTFLD 94 



SUBROUTINE PRTMC 




PRTNC 

2 

c 


SUBROUTINE TO PRINT A CHARACTER FOR EACH 


PRTMC 

3 

c 


POINT IN THE GRID DESCRIBING THE 

TYPE 

OF 


PRTNC 

4 

c 


FLOW. S * SHOCK POINT 




PRTMC 

5 

c 


H * HYPERBOLIC POINT 




PRTNC 

6 

c 


P * PARABOLIC POINT 




PRTMC 

7 

c 


- * ELLIPTIC POINT 




PRTMC 

8 

c 


CALLED BY - PRINT. 




PRTMC 

9 







PRTMC 

10 


COMMON 

P(102*101)*X(iaO)' * Y(IOO) 




BLANK 

2 


COMMON / COMl/ 

IMIN • IMAX * lUP * IDOMN 

J 

ILE 

P 

COMl 

2 


1 

ITE * JMIN * JMAX * JUP 

# 

JLOH 

t 

COMl 

3 


2 

JTOP * JBOT 




COMl 

4 


COMMON / C0M2/ 

AK * ALPHA * DUB * GANl 

p 

RTK 


C0H2 

2 


COMMON /C0M22/ 

CXC(IOO) * CXL(IOO)* CXR(IOO)* CXXC(IOO), 

CXXL(IOO), 

CDM22 

2 


1 

CXXR(IOO), CKlOOl 




CDM22 

3 







PRTMC 

15 


COMMON /C0N30/ 

' IPC(IOO) * VT(100*2), REST(104) 




PRTNC 

16. 


DATA IHP/IHP/, 

IHH/IHH/* IHS/IHS/* IHD/IH-/, I8/1H 

/ 



PRTNC 

17 







PRTNC 

18 


WRITE (6*100) 





PRTNC 

19. 


DO 9 1-1*50*2 





PRTNC 

20 


IPC(I) • 18 





PRTNC 

21 


IPC(I41) • IB 





PRTMC 

22 


9 CONTINUE 





PRTMC 

23 


DO 10 




PRTMC 

24 


VT(J#1) ■ CKZ) 




PRTNC 

25 


10 CONTINUE 





PRTNC 

26 


■ APPENDIX 




DO 60 K*JM1N>JHAX 
J • JHAX - K « 1 
DO SO I'lUPpCDOyN 
VTtJfZ) • VTUpl) 

vT(j.i) • cuii-(CXL(i)»pijpi-ii+cxcii)*p(g,i(+cxRiii*pij,i+in 
IF (VTIJpII .CTp 0.01 00 TO 30 
IF <VT(J.2I .LT. 0.01 GO TO 20 
C PARAIQLIC POINT (SONICI 

IPCIIl • (HP 
GO TO SO 
20 CONTINUE 

C hyperbolic POINT (SUPERSONICI 

IPCIIJ • IHH 
GO TO SO 
30 CONTINUE 

IF (VTU.2I .LT, 0.01 GO TO AO 
C ELLIPTIC POINT (SOBSONICI 

IPCdl . IHO 
GO TO 50 
AO CONTINUE 

C SHOCK POINT 

IPCIIl • IHS 

SO continue 

WRITE <6.1101 g> lIPCm.I-IUP.IDQWNI 

60 continue 

RETURN 

100 F0RMAT(lHl.S6X.18Hf LOW CHARACTER NAP/ 37X. 1B( IH* I //2BX. 

1 13HP ■ PARABDLIC/2BX.1AHH • HYPERB0L1C/28X.9HS ■ SH0CK/28X, 

2 12H- • ELLIPTIC//) 

110 F0RNATI10X.I3.SX.10OA1I 

END 


PRTNC 27 
PRTHC 28 
PRTNC 29 
PRTNC 3U 
PRTNC 31 
PRTNC 32 
PRTNC 33 
PRTNC 3A 
PRTNC 35 
PRTNC 36 
PRTNC 37 
PRTNC 38 
PRTNC 39 
PRTNC AO 
PRTHC A1 
PRTNC A2 
PRTNC A3 
PRTNC AA 
PRTHC AS 
PRTNC A6 
PRTNC AT 
PRTNC AS 
PRTHC A9 
PRTNC 50 
PRTHC 51 
PRTHC 52 
PRTNC 53 
PRTHC 5A 
PRTNC 55 
PRTHC 56 
PRTHC 57 
PRTNC 58 
PRTNC 59 


SUBROUTINE PRTSKI Z.ARC.L.NSHOCK.CDSK.LPRTl) 

C PRINTOUT WAVE DRAG CONTRIBUTION AND TOTAL PRESSURE 

C LOSS ALONG SHOCK HAVE 

C CALLED BT - CDCOLE. 

CONNON / C0N2/ AK > ALPHA . DUB . GANl . RTK 

CONNDN /C0N13/ CDFACT . CLFACT . CNFACT . CPFACT . CPSIAR 

LOGICAL PHTS 

INTEGER PRTFLO . SIHDEF 

CONNON /CDN27/ CL . DELTA > DELRT2 > ENACH > ENROOT > 

1 PHYS > PRTFLU t SIHDEF > SONVEL . VFACT . 

2 YfACT 
DIHEHSION 2(1). ARGIl) 

CDTCOF • -C0FACT*GAH1/I6.*TFACT) 

POYCOF • 0ELTA*0ELTAAGANlAtGANl-l.l/12. 

IFINSHOCK .EO.l) WRITE! 6. 1001 1 

HRITEI6.10U2) NSHQCK. CDSK 

DO 10 K • l.l 

YY ■ 21K)*YFACI 

COY ■ CDYCOFpARGIKI 

POT • 1. A POYCOPAARG(K) 

HRITEIb.1003) YV.CDY.POY 
ID CONTINUE 

IFILPRTl .EO. II WRITE(6.iOOAI 
RETURN 

1001 FORNATIIHI.BSX.ABHSHOCK WAVE DRAG AND TOTAL PRESSURE PROFILE . 

1 6H0UTPUT/36X.A9(1H*)//39H INVISCIO WAKE PROFILES FOR INDIVIDUAL . 

2 3SHSHCCK WAVES WITHIN NONENTUN CONTOUR) 

1002 FORNATI 6H0SH0CK. I3/Z6H WAVE DRAG FOR THIS SHOCK*. F12.6/ 

* 6X,1HY>9X.5HCD(YI.6X>8HPD/P0INF/) 

1003 F0RNATI1X.3F12.8) 

lOOA FORNAT(35HOSHOCK WAVE EXTENDS OUTSIDE CONTOUR/ 

* 61H PRINTOUT OF SHOCK LOSSES ARE NOT AVAILABLE FOR REST OF SHOCK) 
END 


PRTSK 2 
PRTSK 3 
PRTSK A 
PRTSK 5 
PRTSK 6 
C0H2 2 
C0N13 2 
C0N27 2 
C0H27 3 
C0H27 A 
C0NZ7 5 
C0H27 6 
PRTSK 10 
PRTSK 11 
PRTSK 12 
PRTSK 13 
PRTSK lA 
PRTSK 15 
PRTSK 16 
PRTSK 17 
PRTSK 18 
PRTSK 19 
PRTSK 20 
PRTSK 21 
PRTSK 22 
PRTSK 23 
PRTSK 2A 
PRTSK 25 
PRTSK 26 
PRTSK 27 
PRTSK 28 
PRTSK 29 
PRTSK 30 
PRTSK 31 


8 


SUBROUTINE PRTwAL 


C PRINTS PRESSURE COEFFICIENT AND FLOW ANGLE 

C ON Y— H AND Y>*H. AND PLOTS CP ALONG SIDE OF 

C TABULATION, 

C CALLED BY ■> PRINT, 

CONNON P(102.101).X(100) . YllOO) 

CONNON / CONI/ ININ . INAX . lUP . IDOHN . ILE . 

1 ITE . JNIN . JHAX . JUP . JLOW . 

2 JTOP . JBQT 

CONNON / C0N5/ XDIFFIlOO).YOlFF(iOO) 

CONNON /CQN12/ F . K . HALFPI > PI . RTKPQR . 

1 TWOPI 

CONNON /C0H13/ CDFACT . CLFACT . CNFACT > CPFACT > CPSTAR 

LOGICAL PHYS 

INTEGER PRTFLO • SIHDEF 

CONNON 7C0N27/ CL > DELTA . DELRT2 . ENACH . ENROOT . 

1 PHYS . PRTFLO . SIHDEF . SONVEL . VFACT . 

2 YFACT 

INTEGER BCIYPE 

CONNON /C0N2B/ BCTYPE . CIRCFF . FHINV > POR . CIRCTE 

CONNON /CON30/ CPLWIIaO). CFUWIIOOI. VLW(lOa). VUWIlOO). RESTIA) 

OINENSION BCI(15I . LINE1160I 

DATA IB 71H /. IL / IHL/. lU /IHU7. IS / IH*/. IBB /1HB7 

DATA BCT /AH .AHFREE.AH AIR. AH SO.AHLID .AHwALL.AH . 

1 AHFREE.AH JET.AriSLOT.AHTEO .AHWALL.AH POR. AHOUS .AHWALL/ 

C PRIHT SINGLE VARIABLES 

12 ■ 3 • BCTTPE 
II • 12 - 2 

WRITE (6.903) (BCT( I). 1*11. 12 1 
THH ■ H * YFACT 
WRITE(6.90AI THH.H 
IF< BCTTPE ,LT. 5 ) GO TO A 
PORF - POR / YFACT 
WRITE(6.9D5I PORF.PDR 
A CONTINUE 

IFI BCTYPE ,NB. A .AND, BCTYPE ,NE. 6 ) GO TO 6 
WRITE 16.906) F 
6 CONTINUE 

WRITE (6.9C7) CPSTAR 

CPNIN • 1.0E37 

CPHAX ■ -CPNIN 


CPT • -2.0 ♦ CPFACT 

DO 10 1-lUP. IDOWN 

CPLW(I) • CPT * PX(l.JHIN) 

CPUW(I) ■ CPT * PXU.UNAX) 

CPNAX • AHAXKCPNAX.CPUWIll. CPLWdll 
CPNIN • ANINKCPNlN.CPUWdl. CPLWIIM 

10 CONTINUE 

DO 20 I'lUP.IOOWN 
IF (BCTYPE ,NE. 2) SO TO 11 
C SOLID WALL 

VLWd) • 0.0 

VUWdI • 0.0 

GO TO 20 

11 continue 

IF (BCTYPE .NE. 31 GO TO 12 
C FREE JET 

VLWd) ■ VFACT * PYII.JNIN) 

VUUd) • VFACT * PYd.JNAX) 

GO TO 20 

12 CONTINUE 

IF (BCTYPE .HE. A) GO TO 13 
C SLOTTED HALL 

VLWd) • VFACT * FHINV * (PIJBOT.I) * .75 * CIRCFF) 

VUWdI ■ -VFACT ♦ FHINV * (PUTOP.I) - .25 * CIRCFF) 

GO TO 20 

13 CONTINUE 

C POROUS WALL 

IF (POR .GT. 1.5) GO TO lA 

VLW(I) • VFACT * POR * XOIFF 1 1 )* I P(JNIN.I)-P( JNIN. 1-1) ) 

VOWd) • -VFACT * POR * XOIFF 1 1 ) *1 PI JNAX. I)-P( JHAX. I-l) ) 

SO TO 20 
lA CONTINUE 

VLWd) ■ VFACT *.25*(P(JH1H+1.I+1)+Z.*PIJHIN+1.I)*PIJHIM*1.I-1I 

1 - PUNIN .m)-2.PP(JHIN .I)-P(JN1N *1-11) 

2 / (YIJNIN+D-TIJNIN) I 

VUW(I) • VFACT W.2SA(P( JNAX.IFl) H2.AP (JNAX. I) *PIJNAX.I-1) 


PRTWAL 2 
PRTWAL 3 
PRTWAL A 
PRTWAL 5 
PRTWAL 6 
PRTWAL 7 
PRTWAL 8 
BLANK 2 
CONI . 2 

CONI 3 

CONI A 
CONS 2 
C0N12 2 

C0N12 3 

C0NI3 2 
C0N27 2 

C0N27 3 

CQN27 A 
C0H2T 5 
CDH27 6 
C0N2B 2 
C0N28 3 

PRTWAL 16 
PRTWAL 17 
PRTWAL IB 
PRTWAL 19 
PRTWAL 20 
PRTWAL 21 
PRTWAL 22 
PRTWAL 23 
PRTWAL 2A 
PRTWAL 25 
PRTWAL 26 
PRTWAL 27 
PRTWAL 28 
PRTWAL 29 
PRTWAL 30 
P(;TWAL 31 
PRTWAL 32 
PRTWAL 33 
PRTWAL 3A 
PRTWAL 35 
PRTWAL 36 
PRTWAL 37 
PRTWAL 3« 
PRTWAL 39 
PRTWAL AO 
PRTWAL A1 
PRTWAL A2 
PRTWAL A3 
PRTWAL AA 
PRTWAL AS 
PRTWAL A6 
PRTWAL A7 
PRTWAL A8 
PRTWAL A9 
PRTWAL 50 
PRTWAL 51 
PRTWAL 52 
PRTWAL S3 
PRTWAL 5A 
PRTWAL 55 
PRTWAL 56 
PRTWAL 57 
PRTWAL SB 
PRTWAL 59 
PRTWAL 60 
PRTWAL 61 
PRTWAL 62 
PRTWAL 63 
PRTWAL 6A 
PRTWAL 65 
PRTWAL 66 
PRTWAL 67 
PRTWAL 6B 
PRTWAL 69 
PRTWAL 70 
PRTWAL 71 
PRTWAL 72 
PRTWAL 73 
PRTWAL 74 > 

DDTU.I TK 


PRTWAL 77 g 
PRTWAL 78 


1 - P1JNAX-1,I*1(-2.*P(JH*X-1»II-PUMAX-1,1-1) I 

2 / trl JH*X)-r<JM*X-lM 
20 CONTINUE 

CPLARG • AHAXKCPNAX.ABSICPMINI) 

UNPCOL ■ CPLARG / Z<i, 

C LOCATE CP* FDR PRINTER PLOT 

COL - -CP5TAR I UNPCOL 

NCOL - SIGNl CABSCCOLI*.!)!# COLJ 

NCOLS • NCOL ♦ 30 

kRlTE t6>210) 

C PRINT COLUMN HEADERS. 

WRITE (6*2201 
DO 40 I*IUP>IDOWN 

00 30 K«1.6Q 
LINE1(K> « la 

30 CONTINUE 

COL ■ -CPUW1I) / UNPCOL 

NCOL • SISN((ABS(CDL) * .6) > COL) 

NCOLU - NCOL ♦ 30 

LINEKNCOLU) - lU 

COL ‘ -CPLW(I) / UNPCOL 

NCOL • SIGNKABS(COL) t .6) * COL) 

NCOLL • NCOL * 30 

LINEKNCQIL) • IL 

IF < NCOLL .EO. NCOLU ) LINEKNCOLL) • IBB 
IF (lABS(NCULS) .LT. 61) LINEINNCOLS ) • IS 

WRITE (6>2S0) I* X(D* CPL<MI)> VLWd)* CPUW(I)* VUW(D* LlNEl 
40 CONTINUf 
RETURN 

210 FORMAT ( IHO* 27X * 5HLaw£R*23X* 5HUPPE R/2BX»4HY--Hf 2 4Xf4HY**ri) 

220 F0RMAT(3X.lHl>8X>lHXil0X>2HCP.qXi5riTHETA>12X>2HCP*9X*BHTHETA/) 
260 FONMATdH * 13* 3F12 .6* AX* ZF12.6* 2X.60A1 ) 

903 F0RMAT(2H1 *3A4*20H BOUNDARY CONDKION.) 

904 F0RMAT(1H0*10X|24HH (TUNNEL HALF HEIGHT) ■.F9,6*15X. 

1 lOHSCALED H -,F9.6) 

905 FORMAI(1HO»11X*23HPOR (POROSITY FACTOR) ■*F9.6*13X, 

1 12HSCALED PQR >>F9.6) 

9C6 FORMAT(1HO*14X,20HF (SLOT PARAMETER) F9.6) 

902 F0RMAT(1H0»29X.5HCP* ‘tFV.tl 

END 


PRTWAL 79 
PRTWAL ao 
PRTWAL ai 
PRTWAL S2 
PRTWAL B3 
PRTWAL 04 
PRTWAL B5 
PRTWAL Bb 
PRTWAL 07 
PRTWAL aa 
PRTWAL 89 
PRTWAL 90 
PRTWAL 91 
PRTWAL 92 
PRTWAL 93 
PRTWAL 94 
PRTWAL 95 
PRTWAL 96 
PRTWAL 97 
PRTWAL 96 
PRTWAL 99 
PRTWAL 100 
PRTWAL 101 
PRTWAL 102 
PRTWAL 103 
PRTWAL 104 
PRTWAL 105 
PRTWAL 1U6 
PRTWAL 107 
PRTWAL 108 
PRTWAL 109 
PRTWAL 110 
PRTWAL 111 
PRTWAL 112 
PRTWAL 113 
PRTwaL 114 
PRTWAL 115 
PRTWAL 116 
PRTWAL 117 
PRTWAL lie 
PRTWAL 119 
PRTWAL 120 
PRTWAL 121 
PRTWAL 122 
PRTWAL 123 
PRTWAL 124 
PRTWAL 125 
PRTwAL 126 
PRTWAL 127 
PRTWAL 128 
PRTWAL 129 
PRTWAL 130 
PRTWAL 131 


FUNCTION PX(1*J) 

C FUNCTION PX COMPUTES U • 0P2DX AT POINT I*J 

C CALLED BY • COCOLE* DRAG* FINDSK* MACHHP* MILINE* 

C NEWSK* PRINTl* PRTFLD* PRTWAL. 

COMMON P(102>101)*X(100) * Y(IOO) 

COMMON / CDMl/ IMIN * IMAX , lUP * lOOWN > ILE 

1 ITE * JMIN * UMAX * UUP * ULOW 

2 JTOP * JBDT 

COMMON 2 C0M5/ XOIFF(iOO)>YDIFF(lUO) 

C TEST TO locate END POINTS 

IF(I .FQ. IMIN) GO TO 10 
1F(1 .EO. IMAX) GO TO 20 
C INTERIOR MESH POINT 

PJI • P(J,I) 

PX ■ .5*(X0IFF(1*1)*(P(J*I*1)-PJ1) + XDIFF( I)*(PJ1-P(U> 1-1)) ) 

RETURN 

10 CONTINUE 

C UPSTREAM BOUNDARY 

PX - 1.5*XDZFF(I*1)«(P(J*I*1)-P(U*1) ) - 
1 0.5*XDIFF(I+2)*(P(J*I+2) -P(J*I*1)) 

RETURN 

20 CONTINUE 

C DOWNSTREAM BOUNDARY 

PX • 1.5*XDIFF(I )*(P(U*I) - P(J*I-1)) 

1 -0.5*XDIFF(I-1)*(P(U*I-1) - PU*I-2)) 

RETURN 

END 


PX 2 

PX 3 

PX 4 

PX 5 

PX 6 

blank 2 

COM! 2 

COMl 3 

CQMl 4 

C0M5 2 

PX 10 

PX 11 

PX 12 

PX 13 

PX 14 

PX 15 

PX 16 

PX 17 

PX 18 

PX 19 

PX 2U 

PX 21 

PX 22 

PX 23 

PX 24 

PX 25 

PX 26 

PX 27 

PX 28 


FUNCTION PY(I*J) 

C FUNCTION PY computes V • DP/OY AT PDlNT I»J 

C CALLED BT - COCOLE* PRTFLD* PRTWAL. 

COMMON P(102*101)*X(130) * Y(IOO) 

COMMON / COMl/ IMIN > IMAX * lUP * IDOWH * ILE * 

1 ITE * JMIN , UMAX * UUP * ULOW * 

2 UTOP * UBOT 

COMMON / C0M2/ AM , ALPHA * OUB *. GAMl * RTK 

COMMON / C0M5/ XDIFF(100)*YDIFF(100I 

COMMON / C0M6/ FL(IOO) * FXL(IOO)* FU(lOtt) * FXU(IOD)* 

1 CAMBER(IOO)* FHICKdOOIfVQL * XFOIL(IOO)* IFOIL 

COMMON /C0M26/ PUUMP(IOO) 

INTEGER aCTYPE 

COMMON /C0M28/ BCTYPt * CIRCFF * FHINV * POR , CIRCTE 

C TEST FDR END POINTS OR POINTS NEAR AIRFOIL SLIT 

1F(U .EO. UMIN) GO TO 10 
1F(J .EO. ULOW) GO TO 20 
IF(U .EO, UUP ) GO TO 40 
IF(U .EO. UMAX) GO TO 50 
C I*U IS AN INTERIOR POINT 

PUT • P(J*1) 

PY ■ .5*(YDIFFIJ*1)*(P(U*-1, D-PUI) + Y0IFF( U ) *( PUI-P( U-l* I ) ) ) 
RETURN 

10 CONTINUE 

C liJ IS ON LOWER aOUNOARY. USE ONE SIDED DERIVATIVE 

PY • 1.5* YDIFF(U+1)*IP(U+1,I) - P(J,I)) - 
1 0,5* Y0IFF(U + 2)*(P(U*2,I) - PU+l.D) 

RETURN 

20 CONTINUE 

C I*U IS ON ROW OF MESH PUNTS BELOW AIRFOIL. 

VMINUS ■ YDIFF(J)*(P(U*I) - P(U-1*I)) 

C TEST TO SEE IF I> J IS AHEAD* UNDER* OR BEHIND SLIT. 

IF(I .LT. ILE) GO TO 21 
IFd .GT. ITE) GO TO 22 

C 1*U IS under airfoil, use DERIVATIVE BOUNDARY 

C CONDITION. 

IC • I - ILE + 1 

PY • .5 * (FXLdC) - ALPHA * VMINUS) 

RETURN 

21 CONTINUE 

C 1,U IS AHEAD OF AIRFOIL. 

PY ■ ,5*((P(UUP* I) - PIULQW.D) * YDIFF(UUP) ♦ VMINUS) 

RETURN 

22 CONTINUE 

C I*J IS BEHIND AIRFOIL 

PY • .5*((P(UUP. I) - PUUMP(I) - PULOW.D) * YOIFF(UUP) ♦ VMINUS) 
RETURN 

40 CONTINUE 

C I*U IS ON ROW OF MESH POINTS ABOVE AIRFOIL 

VPLUS ■ YD1FF( J*1I*(P(J*1,I1 - P(U*D) 

C TEST TO SEE IF I IS AHEAD OF* OVER* OR BEHIND 

C AIRFOIL SLIT. 

IFd .LT. ILE) GO TO 41 
IFd .GT. ITE) GO TO 42 
1C • I - ILE + I 

PY • .5 ♦ (VPLUS + FXU(IC) - ALPHA) 

RETURN 

41 CONTINUE 

C ItU IS AHEAD OF AIRFOIL. 

PY • .5*((P(JUP*I) - P(ULDW*D) ♦ YOIFF(UUP) ♦ VPLUS) 

RETURN 

42 CONTINUE 

C I*U IS BEHIND AIRFOIL 

PY • .5*((P(JUP*n - PUUHP(I) - P(ULGW.I)) * YOIFF(JUP) ♦ VPLUS) 
RETURN 

50 CONTINUE 

C I*J IS ON TOP ROW OF MESH POINTS. USE ONE SIDED 

C FORMULA. 

PY ■ 1.5*YDIFF(J)*(P(J,I) - P(J-l*D) 

1 - 0.5*Y0IFF(J-1)*(P(J-1,I) - P(J-2*D) 
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PY 5 ' 

BLANK 2 
COMl 2 

COMl ' 3 

COMl ' 4 

COM2 2 

COHS 2 
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CQH26 2 
CQMZB 2 
C0H28 3 
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PY 70 

PY 71 

PY 72 

PY 73 

PY 74 


RETURN 

END 
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SUBROUTINE 

READIN 



REAOIN 

2 

c 



H (F) TUNNEL HALF HEIGHT/CHORO RATIO. 0. 

REAOIN 

B< 







READIN 

3 

c 



POR (F) WALL PUROSITT FACTOR. .0 

READIN 

B9 

c 



CALLED 

0Y - TSFOIL. 

REAOIN 

A 

c 



PHYS (L) TYPE OF SCALING TO USE FOR 1/0. .T. 

REAOIN 

90 







READIN 

b 

c 



•.TRUE. PHYSICALLY SCALED VALUES. 

READIN 

91 

c 





input explanation 

READIN 

0 

C 



•.FALSE. TRANSDNICALLY SCALED VALUES 

READIN 

.92 







**««AEA01N 

7 

c 



FOR PHYS • .F. . ALSO INPUT VALUE FOR AK. 

READIN 

93 

c 






REAOIN 

b 

c 



IHAXI (1) number of X-HESH POINTS!. LE. 100) 77 

REAOIN 


c 

ALL 

INPUT IS READ 

IN 

this subroutine, the order is as described 

REAOIN 

9 

c 



JMAXI (I) NUMBER OF Y-HESH POINTS!. LE. 100) 56 

READIN 

95 

c 

BELOV. 




RcADiN 

10 

c 



IMIN (I) X MESH POINT WHERE CALC IS TO START 1 

READIN 

96 

c 

1.) 

ONE 

CARO OF TITLE INFORMATION. AN «Ai (ALPHANUMERIC) FORMAT 

REAOIN 

11 

c 



JMIN (I) Y MESH POINT WHERE’CALC IS TO START 1 

REAOIN 

97 

c 


IS USED TO READ < 

AMO WRITE THIS INFORMATION. MULTIPLE CASES 

READIN 

12 

c 



ICUT (I) CONTROL FOR NESH CUT AND REFINEMENT. 2 

REAOIN 

96 

c 


MAT 

BE RUN WIIH 

THIS PROGRAM AND THE DATA FOR EACH CASE 

REAOIN 

13 

c 



• 0 INPUT MESH IS USED TO CONVERGENCE. 

REAOIN 

99 

t 


RUST 

START WITH 1 

INIS CARD. THE LAST CARO OF THE INPUT MUST 

READIN 

LA 

c 



• 1 INPUT HESH MAY BE CUT ONCE. 

REAOIN 

100 

c 


BE A 

CARD WITH THE WORD ^FlNlSHEO^ IN THE FIRST 6 COLUMNS. 

READIN 

IS 

C 



- 2 INPUT MESH MAY BE CUT TWICE. 

READIN 

lOX 

c 






READIN 

16 

c 



WE (F> 3 VALUES FOR RELAXATION FACTOR FOR l.B 

READIN 

102 

c 

2.) 

NAMELIST CONTAINING THESE PARAMETERS IS NOW READ. (SEE 

REAOIN 

17 

c 



ELIPTIC PTS. 1-ST FOR COARSE HESH. 1.9 

REAOIN 

103 

c 


FORTRAN MANUAL FOR DESCRIPTION OF NAMELIST INPUT). THE 

READIN 

m 

C 



2-ND FOR MED. HESH AND 3->R0 FOR 1.95 

REAOIN 

104 

c 


BLOCK DATA SUBROUTINE SETS A DEFAULT VALUEf AS NOTED BELOWi 

READIN 

19 

c 



FINE MESH. DEFAULT VALUES ARE SUGGESTED 

READIN 

X05 

c 


FOR 

ALL OF THESE 

PARAMcTERS. 

RcAOIN 

20 

c 



VALUES. IN ORDER. IF SPECIFIED IN INPUT 

READIN 

106 

c 


ONLY 

THE VALUES 1 

UKICH ARE DIFFERENT FROM THE PREVIOUS CASE 

REAOIN 

21 

c 



ALL THREE VALUES MUST BE GIVEN. 

REAOIN 

107 

c 


(OR 

DEFAULT) 

MUST BE Included, although at least one value 

READIN 

22 

C 



WCIRC (F) RELAXATION FACTOR FDR CIRCULATION. 1.0 

READIN 

106 

c 


MUST 

BE INPUT 

BY 

NAMELIST FOR EACH CASE. 

REAOIN 

^3 

c 



MAXIT (I) MAXIMUM NUMBER OF ITERATION CYCLES 500 

READIN 

109 

c 




A 

(F) • FLOATING POINT * 

READIN 

29 

c 



ALLOWED. 

REAOIN 

110 

c 




A 

(I) • INTEGER ♦ 

READIN 

25 

c 



CVERGE (F) CONVERGENCE CRITERION FDR RESIDUALS .00001 

READIN 

111 

c 




* 

(L) > LOGICAL * 

READIN 

2b 

c 



QF P* 

READIN 

112 

c 





DEFAULT 

READIN 

27 

c 



DVcRGE (F) DIVERGENCE CRITERION FOR RESIDUALS 10. 

REAOIN 

113 

c 





VALUE 

REAOIN 

26 

c 



QF P* 

REAOIN 

IIA 

c 



AHESH 

(L) 

OPTION FDR ANALYTICAL MESH CALC. .F. 

READIN 

29 

c 



mOf (F) REIGLES RULE FOR BOOT SLOPE. 0.0 

REAOIN 

115 

c 





•TRUE. X AND Y HESH VALUES ARE COMPUTED 

READIN 

30 

c 



EPS (F) COEFFICIENT OF PXT .2 

READIN 

116 

c 





iCCLutlNL T-. iN AHiLTlK 

READIN 

31 

c 



IPRTeR (1) CONTROL FOR FREQUENCY OF PRINT OF 10 

RcAOlN 

117 

c 






READIN 

32 

C 



LINE IN HESH WHERE ERROR IS LARGEST. 

REAOIN 

IIB 

c 






READIN 

33 

c 



l.E. IPRTER‘10 . LINE WILL BE PRINTED 

READIN 

119 







READIN 

3A 

c 



EVERY 10-TH ITERATION. 

READIN 


c 





•FALSE. X AND Y POINTS ARE THE DEFAULT 

READIN 

3S 

c 






c 





VALUES OR THE VALUES SUPPLIED 

READIN 

36 

c 

note***** WHEN ARRAYS ARE READ BY NAMELIST THE FULL ARRAY MUST BE 

REAOIN 

122 

c 





BY The user thru namelist. 

READIN 

37 

c 


SET. l.E. IF ALL VALUES ARE NOT REQUIRED TME ARRAY MAY 

READIN 

123 

c 



EHACH 

(F) 

FREESTREAM MACH NUMBER. . 7B 

READIN 

38 

c 


BE FILLED USING MULTIPLE ZEROS. (NvO.O) 

READIN 

12A 






note»p**ehach may not be - i.o 

READIN 

39 

c 



XU (F) ARRAY - X VALUES FDR UPPER BQDY« USED 

READIN 


c 



DELTA 

<F) 

BODY THICKNESS RATIO* .215 

REAOIN 

AO 

c 



IF BCFOIL ■ 3. KORN AIRFOIL USING ALL 



c 



ALPHA 

(F> 

ANGLE OF ATTACK (DEGREES IF PHYS.T) .12 

READIN 

A1 

c 



100 PTS. (UPPER) AND 75 (LOWER) IS DEFAULT. 

READIN 

127 

c 



AK 

(F) 

TRANSONIC SINILARITY PARAMETER. J.O 

RcAOIn 

A2 

c 



XL (F) ARRAY - X VALUES FOR LOWER BODY. 

REAOIN 

126 

c 





(INPUT REQUIRED ONLY IF PHYS ■ *F, ) 

REAOIN 

A3 

c 



YU (F) ARRAY - Y VALUES FOR UPPER BQOYi 



c 



GAM 

(FI 

RATIO OF SPECIFIC HcATS. L.A 

READIN 

AA 

c 



YL (F) ARRAY - Y VALUES FOR LOWER BODY. 



c 



SIMOEF 

(I) 

SIMILARITY DEFINITION. 3 

REAOIN 

A5 

c 



NU (I) NUMBER OF POINTS TO USE FOR UPPER BODY 100 

REAOIN 

131 

c 





"2 SPREITER 

REAOIN 

A6 

A7 

c 



NL (I) NUMBER OF POINTS TO USE FOR LOWER BODY 75 

RcAOlN 

READIN 

132 

133 

c 






RcAOIn 

Ab 

c< 

'**♦** NOTE 

THIS program uses A MESH REFINEMENT METHOD FOR DECREASING 

READIN 

139 






•<i USER 


A9 

c 


COMPUTER TIME. FOLLOW THE RULES BELOW FOR CONSTRUCTING THE 

REAOIN 

135 

c 



PRTFLD 

(1) 

OPTION FOR PRINT OF FINAL FLOV FIELD. 1 

REAOIh 

SO 

c 


X 

AKO Y MESH TO TAKE FULL ADVANTAGE QF THIS FEATURE. 

REAOIN 

136 






-1 NO FLOW FIELD PRINT. 

READIN 

SI 

c 



IMAXI - ITE SHOULD BE A MULTIPLE OF 9. 

READIN 

137 

c 





•2 ALL J LINES PRINTED. 

READIN 

52 

c 



ITE - IMIN SHOULD BE A MULTIPLE OF 9. 

REAOIN 

136 

c 





•3 PRINT 3 J LINES AROUND MAXIMUM ERROR 

READIN 

53 

C 



JMAXI - JUP * 1 SHOULD BE A MULTIPLE OF 9 



c 



PSTART 

U) 

OPTION FOR INITIALIZING P ARtlAY. I 

READIN 

3A 

c 



JLOU - JMIN * 1 SHOULD BE A MULTIPLE QF 9 

REAOIN 

lAO 






■1 SET TO ZCRO* 

READIh 

55 

C 



(WHERE JLOW IS LAST POINT BELOW SLIT AND 

READIN 

lAl 

c 





■2 READ P FROM UNIT 7 

REAOIN 

56 

c 



JUP IS FIRST POINT ABOVE SLIT.) 

REAOIN 

1A2 

c 





•3 USE P IN CORE (PREVIOUS CASE). 

REAOIN 

57 

c 



WHERE ITE - I FOR X • 1.0 (OR POINT ON BODY CLOSEST TO 



c 



PSAVE 

(L) 

OPTION FOR SAVING RESTART SLOCK OF .F. 

READIN 

SB 

c 



X • 1.0). 



c 





VALUES ON UNIT 3. 

READIN 

59 

c 


SUBROUTINE CKMESH INSPECTS THE X AND Y MESHES TO SEE IF 

READIN 

1^5 

c 





-.TRUE. SAVE FOR RESTART. 

READIN 

60 

c 


THIS IS TRUE AND. IF NOT. WILL >WDIfY INPUT MfSH IN SOME 

READIN 

IA6 

c 





•.FALSE. DO NOT SAVE. 

READIN 

61 

c 


CASES. 



c 



FCR 

(L> 

FULLY CONSERVATIVE RELAXATION OPTION . T. 

REAOIN 

62 







c 





•.TRUE. DIFFERENCE EOUATIONS ARE 

READIN 

63. 

c 



XIN (F) ARRAY - X HESH POINTS. LIMIT 100 PTS. 

READIN 

1^9 

c 





FULLY CONSERVATIVE FORN. 

READIN 

6A 

c 



TIN (F) ARRAY - Y MESH POINTS. LIMIT 100 PTS. 

REAOIN 

150 

c 





•.FALSE. DIFFERENCE EOUATIONS NOT 

READIN 

65 

c 



X AND Y MESH DEFAULT VALUES ARE KRUPP 

READIN 

151 

c 





CONSERVATIVE AT SHOCK WAVES. 

REAOIN 

66 

c 



BASIC GRID, 



c 



KUTU 

(U 

KUTTA CONDITION OPTION. .7. 

REAOIN 

67 







c 





■.TRUE. KUTTA CONDITION IS ENFORCED 

READIN 

6B 


COMMON 


P(102.101).xao0) . Y(IOO) 

blank 


c 





..false, lift coefficient specified 

REAOIN 

69 


COMMON 

/ 

COMl/ IMIN . IHAX . lUP . lOOWN . ILE . 

COHl 

£ 

c 





BY USER. 

READIN 

70 


1 


ITS t JMIN > JMAX . JUP . JLOW > 

co)a 


c 



CLSET 

(F) 

LIFT COEFFICIENT. USED IF KUTTA .0 

REAOIN 

71 


2 


JTQP . JBOT 



c 





IS FALSE. 

REAOIN 

72 


COMMON 

/ 

CDM2/ AK . alpha . DUB , GAHl . RTK 

CQH2 

2 

c 



BCFOIL 

(I) 

OPTION FOR FOIL OR BODY GEOMETRY. 3 

READIN 

73 


LOGICAL 

ABORT 

C0H3 

2 

c 





•1 NACAOOXX 

REAOIN 

79 


COMMON 

/ 

C0M3/ IREF , ABORT r ICUT , KSTEP 

C0N3 

3 

c 





•2 parabolic arc. 

READIN 

75 


LOGICAL 


AMESH 

CQN^ 

2 

c 





•B ORDINATES (READ LATER IN NAMELIST 

REAOIN 

76 


COMMON 

/ 

CDM9/ XIN(IOO) . YIN(IOO). AMESH 

CQNA 

3 

c 





IF DIFFERENT FROM DEFAULT VALUES WHICH 

REAOIN 

77 


COMMON 

/ 

COMB/ CVERGE . DVERGE . IPRTER . HAXIT . 

CQh9 

2 

c 





ARE FOR THE KORN AIRFOIL). 

REAOIN 

7B 


1 


WE(3) , EPS 



c 





•A USER OPTION. 

READIN 

79 


INTEGER 


BCFOIL 

C0H9 

2 

c 



BCfYPE 

( 1) 

DESCRIBES THE TYPE 3F FLOW TO BE I 

REAOIN 

BO 


COMMON 

/ 

C0M9/ BCFOIL . NL . NU . XLUOO) . XUllOO) x 

C0N9 

3 

c 





COMPUTED. 

READIN 

61 


1 


Yl(lOO) . YU(IOO) . RIGF 

C0M9 

9 

c 





•1 FREE XIR. 

REAOIh 

62 


LOGICAL 

xgrdin.tgrdin 

cohio 

2 

c 





•2 SOLID WALL. 

REAOIN 

B3 


COMMON 

/COHIO/ YFREEtlOO) . YTUN(IOO) . XKRUPP(IOO) . GAM > 

COMIO 

3 

c 





■3 FREE JET. 

REAOIN 

BA 


1 


JMXF . JMXT . XGRDIH . YCRDIN 

COHIO 

A 

c 





•A SLOTTED WAIL. 

READIN 

65 


INTEGER 


PSTART 

COMU 

2 

c 





•S POROUS WALL. 

RcAOIn 

66 


LOGICAL 


PSAVE 


3 

c 



F 

(F) 

TUNNEL SLOT PARAMETER. 0. 

READIN 

B7 









I 


> CLOLO < DELTAO « DUSa , EHACHO t 

> IHAXQ , [MAXI , JHINO , JMAXD t 

I PSAVE < PSTART , TIFLECEI; TITLEOCeif 
. X0LD(10DI>YDLD(10a) 

• H > HALFPI , PI t RTKPaR > 

, KUTTA 

> PCR t KUTTA f UCIRC 
, SIKDEF 

, DELTA , DELRT2 , EMACH , EMROOT > 

f PRTFLO , SIMDEF > SQNVEL , VFACT > 


r CIRCFF • FHINV f PDR , CIRCTE 

DATA DONE /SKFINISHED / 

DATA [FIRST /O/ 


NANELIST 

/INP/ AK 

> ALPHA 

AHESH 

BCFOIL t 

BCTYPE 

CLSET 

1 

CVER 66 

) DELTA 

DVERGE 

ErtACH 9 

EPS 

F 

2 

FCR 

) GAH 

H 

ICUV # 

IMAXl 

IHIN 

3 

IPRTER 

> JHAXl 

JHIN 

KUTTA p 

HAXIT 

NL 

9 

NO 

) PHTS 

FOR 

PRTFLQ p 

PSAVE 


5 

PSTART 

1 RIGF 

SXnDEF 

VC IRC > 

WE 


6 

XIN 

1 YIN 

XL 

YL # 

XU 

YU I 

7 

XGROIN 

P YGROIN 






S CONTINUE 

IF (IFIRST .NE. 01 GO TO 2 

IFIRST • i 

CALL SECOND (TIMEZ) 

Z CONTINUE 
TIMEl • TIMEZ 
CALL SECOND (TIMEZ) 

ELPTM ■ TIMEZ - TIMEl 
IF (ELPTM .LT. iDl) GO TO 3 
.WRITE (6>930) ELPTM 
3 CONTINUE 

READ (:>900) TITLE 
WRITE(6>901) TITLE 
IF (TITLE(l) .NE. DONE) 60 TO 10 
WRITE(bt90A) 

STOP 

TO CONTINUE 
READ (SiINP) 

IF (PSTART .NEt 31 SO TO 13 

C test to SEE IF P ARRAY IN CORE IS USEABLE. 

IF ( .NOT. ABORT ) GO TO 13 
WRITE (G.9CB1 
GO TO 5 
13 CONTINUE 

IF { PHYS ) AK ■ 0.0 
IF ( .NOT. AMESH ) GO TO 19 
CALL AYNESH 
60 TO ZZ 
19 CONTINUE 

IF (YGRDINI 60 TO li 

C IF YIN not read in namelist* FILL YIN BY 

C DEFAULT VALUE FOR TUNNEL OR FREE AIR CASE. 

IF (BCTYPE .NE. 1) GO TO 16 
JMAXI • JMXF 
DO 15 J-JM1N*JMAXI 
YINIJ) • YFREE(J) 

15 CONTINUE 
GO TO IP 

16 CONTINUE 
JMAXI ■ JHXT 

DO 17 J'JMlNtJMAXI 
YIN(J) - YTUN(J) 

17 CONTINUE 
IB CONTINUE 

IF (XGRDIN) GO TO ZZ 
DO Z1 I'lHlNflMAXI 
Z1 X1N(I)-XKRUPP( I) 

ZZ CONTINUE 

WRITE (6*9Z1) 

C 

WRITE (6*906) EMACH* POR* IMIN* BCTYPE* AMESH 

WRITE (6*907) DELTA* CLSET* IMAXl* BCFOIL* PHYS 

WRITE (6*906) ALPHA* EPS > JMIN * PSTART* PSAVE 

WRITE (6*909) AK . RIGF * JMAXI* PRTFLO* KUTTA 

WRITE (6*910) GAM* WCIRC* MAXIT* [PRTER* FCR 
WRITE (6*911) F> CVERGE* NU> SIMDEF 
WRITE (6*912) H* DVERGE* NL* [CUT 
WRITE (6.9Z0) WE 
WRITE (6*913) 

WRITE (6*919) <XIN( I)iI*IMIN> IMAXl) 


S COMMON /COHll/ ALPHAO 

«» 1 IMINO 

2 JMAXI 

3 VOLO 
COMMON /C0M12/ F 

1 TWOPI 

LOGICAL FCR 

COMMON /COMIA/ CLSET 
LOGICAL PHYS 

INTEGER PRTFLO 

COMMON /COM27/ CL 

1 PHYS 

2 YFACT 

INTEGER BCTYPE 

COMMON /C0M2B/ BCTYPE 


COMll 9 
COHll S 
COMll 6 
COHll 7 
C0H12 2 

C0M12 3 

C0H19 2 

C0M19 3 

COM27 2 
C0M27 3 

CQM27 9 
C0MZ7 5 
CQN27 6 
C0M28 2 

COHZB 3 
REAOIN 167 
READIN 168 
REAOIN 169 
REAOIN i70 
REAOIN 171 
READIN 172 
READIN 173 
REAOIN 179 
REAOIN 175 
REaDIN 176 
READIN 177 
REAOIN 173 
READIN 179 
REAOIN 18b 
READIN IBl 
READIN 162< 
READIN 183 
REAOIN 169' 
REAOIN IBS 
REAOIN 186 
REAOIN 187 
REAOIN 166 
READIN 189 
REAOIN 19U 
READIN 191 
READIN 19Z 
REAOIN 193 
REAOIN 199 
REAOIN 195 
READIN 196 
REAOIN 197 
REAOIN 198 
READIN 199 
READIN 200 
REAOIN ZOl 
REAOIN 202 
READIN 203 
REAOIN 209 
REAOIN 205 
REAOIN 206 
REAOIN 207 
REAOIN 206 
READIN 209 
REAOIN 210 
READIN 211 
REAOIN 212 
READIN Z13 
READIN 219 
READIN Z15 
READIN 216 
READIN 217 
READIN 218 
READIN 219 
READIN 220 
READIN 221 
REAOIN 222 
REAOIN 223 
REAOIN 229 
REAOIN 225 
REAOIN 226 
READIN 227 
REAOIN 226 
REAOIN 229 
READIN 230 
REAOIN 231 
READIN 232 
REAOIN 233 
READIN 239 
READIN 235 
REAOIN 236 
READIN 237 


WRITE (6,919) 

WRITE (6*919) (TIN(J)*J<JHIM*JHAX1) 

IF (8CF0IL iLE. 2 ) GO TO 19 
WRITE (6*915) 

WRITE (6,919) (XU(1)*1«1*NU) 

WRITE (6*916) 

WRITE (6*919) (YU(I)*I*1,NU) 

WRITE (6*917) 

WRITE (6*9191 (XL(I),I*1*NL) 

WRITE (6*918) 

WRITE (6,919) (YL(I),I-1*NL) 

19 CONTINUE 

GAHl • GAM * 1.0 
IREF • 0 
IMAX - IMAXl 
JHAX • JMAXI 
INI • IMAX - I 
JMl ■ JMAX - 1 

IF (IMAXl .GT. 100 .OR. JMAXI .GT. 100) CALL INPERR (1) 

C ANY CALL TO INPERR CAUSES A MESSAGE TO BE 

C printed and EXECUTION IS STOPPED. 

C CHECK INPUT MESH FOR MONOTCNICALLY INCREASING 

C VALUES. 

DO 20 I-IM1N,IMI 

IF (XIN(I) .GE. X1N(I9D) CALL INPERR (2) 

20 CONTINUE 

00 30 J>JMIN*JH1 

IF (YIN(J) .GE. Y1NU91)) CALL INPERR (3) 

30 CONTINUE 

IF (EMACH .LT. .5 .OR. EMACH .GT. 2.0) CALL INPERR (9) 

IF (ALPHA .LT. -9.0 .OR. ALPHA .GT. 9.0 ) CALL INPERR (5) 

IF (DELTA .LT. U.O .OR. DELIA .GT. 1.0) CALL INPERR ( 6 ) 


C COMPUTE ILE AND ITE (LEADING AND TRAILING EDGE) 

CALL ISLIT ( XIN ) 

C COMPUTE JLQW AND JUP (LOCATION OF BODY SLIT) 

CALL JSLIT ( YIN ) 


C CHECK NUMBER OF MESH POINTS, IF NOT ODD ADD 

C POINTS TO APPROPRIATE AREAS TO MAKE ODD NO. 

C 

CALL CKHESH 

C CHECK BOUNDS OF YMESH FOR TUNNEL CALCULATIONS. 

IF (BCTYPE .EO. 1) GO TO 90 
HTM ■ H - .00001 
HTP • H 9 .00001 
YS ■ ABS(Y1N(JMIN)) 

YE • ABS(YIN (JHAX) I 

IF (YS .LT. HTM .OR. YS .GT. HTP) SO TO 90 
IF (YE .GE. HTM .AND. YE .LE. HTP) GO TO 9C 
90 CONTINUE 

C RESCALE Y MESH TO -H*+H BOUNDS. 

TERM • -H / YIN( JMIN) 

DO 95 J.JH1N*JL0W 
YIN(J) • TERM * YIN(J) 

95 CONTINUE 

term - H / YIN(JHAX) 

DO 50 J-JUP*JMAX 
YIN(J) - TERM * YIN(J) 

60 CONTINUE 

90 continue 

C IF PSTART • 2 READ OLD VALUES FROM TAPE 7. 

IF (PSTART .NE. 2) GO TO 100 

REWIND 7 

read (7*900) TITLED 

READ (7*902) IHAXO* JMAXO* IMINO* JMINO 

READ (7*903) CLOLD* EMACHO* ALPHAO* DELTAO* VOLO* DUBO 

READ (7*903) ( XQ L0( 1 ) * I- IMINO, IMAXO) 

read (7*903) (YQLD( J)*J«JMINO*JHAXO) 

00 60 1-IMINO* IMAXO 

READ (7*903) (P(J*D* J •JMINO* JMAXO) 

60 CONTINUE 

WRITE(6,10C0) TITLEO* IMINO* IMAXO, JMINO* JMAXO*CLOLD*EHACHO* 

1 ALPHA0*DELTA0*V0L0* OUBQ 


READIN 238 5 * 

REAOIN 239 Ig ’ 
READIN 290 n 
READIN 291 g 
READIN 292 B ' 
READIN 293 
READIN 299 
READIN 295 
REAOIN 296 
READIN 297 
READIN 298 
READIN 299 
REAOIN 250 
READIN Z5l 
READIN 252 
REAOIN 253 
READIN 259 
READIN 255 
READIN 256 
READIN 257 
READIN 258 
READIN 259 
READIN 260 
READIN 261 
REAOIN 262 
READIN 263 
REAOIN 269 
READIN 265 
READIN 266 
READIN 267 
READIN 268 
READIN 269 
REAOIN 270 
READIN 271 
READIN 272 
REAOIN 273 
REAOIN 279 
READIN 275 
READIN 276 
READIN 277 
READIN 278 
REAOIN 279 
READIN 280 
READIN 281 
REAOIN 282 
REAOIN 283 
REAOIN 289 
READIN 285 
READIN 266 
READIN 287 
READIN 288 
READIN 289 
READIN 290 
REAOIN 291 
REAOIN 292 
REAOIN 293 
REAOIN 299 
READIN 295 
READIN 296 
READIN 297 
READIN 298 
READIN 299 
REAOIN 300 
REAOIN 301 
READIN 302 
REAOIN 303 
READIN 309 
READIN 305 
READIN 306 
READIN 307 
REAOIN 308 
READIN 309 
READIN 310 
READIN 311 
READIN 312 
READIN 313 
READIN 319 
READIN 315 
READIN 316 
READIN 317 
REAOIN 318 
REAOIN 319 
READIN 320 
REAOIN 321 
REAOIN 322 


10b CONTINUE 
RETURN 

900 FORHRT(ERIO) 

901 FORFUTI IHlrZOX, 8*101 

902 F0RH*T(91SI 
9C3 FORNATieFlOibl 
909 FORHATdHl.) 

905 FORNAKZIHO CALCULATION ABORTED// 

1 ASH OUTPUT OF PREVIOUS SOLUTION NOT AVAILABLE.) 

906 FCRMATtlHO. 12X.7H6HACH F9,5» 8X, 5HPDR ■. F9. 5. 7X.6HININ ".IS. 

1 SXreHBCTYPe -»I3>9X.8HAH£Sh ■ .LI) 

907 FORNAmMO.lZX.THDeLTA •,F9.5.6X,7HCL5ET •.F9.5.6X.7HIHAXI -.IS, 
1 5X.8HBCF0IL •» I3.10X,7riPHYS • .LI) 

90b F0RHATI1H0.1ZX.7HALPHA *. F9.5. BX. 5HEPS •.F9.5.7X.6HJHIN ».I5. 

1 5X.BHPSTART ..13.9X.8HPSAVE ■ > LI ) 

909 FDRMAT11H0.15X.AHAK •. F9.5.TX.6HRI6F •. F9.5. 6X. 7HJMAX1 *»15. 

1 5X.8HPRTFL0 ■. 13. 9X. BHKUTTA ■ .LI) 

910 FORMATllHO.lAX.BHSAH «. F9.5. 6X. 7HWC IRC -.F9. 5. 6x. 7HMAXI T *. 15. 

1 5X.BHIPRTER •. 13.11X.6HFCR • >L1) 

911 FORMAT! 1HC.16X.3HF ii.F9.5.5Xj3HCVERGE ■.F9.5.9X.AHHU *.I5. 

1 5X.6HSIMDEF -.13) 

91Z F0RMAT11H0.16X.3HH -. F9.S, 5X. 8H0VERGE *. F9,l. 9X, AHNL -.IS. 

1 7X.6H1CUT *.13) 

913 F0RHAT(lH0.iAX.3HXIN) 

91A F0RMATUHC.1AX.3HYIN) 

915 F0RMAT11H0.15X.ZHXU) 

916 FORMATI1H0.15X.ZHYU) 

917 FORMAT(1K0.15X.ZHXL) 

918 FDRMATllHO.lSX.ZHYL) 

919 F0RMATI10X.aF13.6) 

9Z0 F0HMATUH0.15X.5HWE ■ , FA.Z.Z 1 IH. FA.Z) ) 

921 F0RMATI/////58X.16HINPUT PARAMETt RS/56X. 161 IH*) / ) 

930 FORMAT! ZZHITIME TO RUN CASE MAS .F6.2.9H SECONDS.) 

1000 F0RMAT139H1P INITIALIZED FROM PREVIOUS RUN TITLED/ 

I 1X.8A10/31H WHICH HAD THE FOLLOWING VALUES/ 

1 8H IMIN -.lA/BH IHAX ..lA/SH JMIN -.IA/8H UMAX -.19/ 

1 8H CL ■.F1Z.8/8H EMACH •.F1Z.8/8H ALPHA '.FlZ.a/ 

1 8H DELTA -.F1Z.8/8H VOL -.FlZ.O/eH DOB -.FlZ.e/) 

END 


C 

C 

c 

c 

C 

c 

c 


SUBROUTINE RECIRC 

SUBROUTINE RECIRC COMPUTES THE FOLLOWING 
1.) JUMP IN P AT TRAILING EDGE • C IRCTE 
Z.l CIRCULATION FOR FARFIELO BOUNDARY • CIRCFF 
3.) JUMP IN P ALONG SLIT Y'O. X .GT.l BY LINEAR 
INTERPOLATION BETWEEN CIRCTE AND CIRCFF 
A.) PUO.ITE) AND PIJO. ITE-ll 
called by - SOLVE. 


connGN 


PIIOZ.IOI) 

XI 130) . 

Y(IOO) 


COHHQN 

/ com/ 

IHIN 


IMAX > 

lUP 

lOOWN > ILE . 

1 


1T6 


JMIN . 

JMAX 4 

JUP . JLOW . 

2 


JTGP 


JBOT 



COH^DN 

/ C0M2/ 

AK 


ALPHA . 

DUS j 

GAMl . RTK 

COH^ION 

/ C0M7/ 

C JUP 


CJUPl . 

CJLO«< 

CJLDWl 

CnHHDN 

/CDM13/ 

CDF ACT 


CLFACT . 

ChFACT 

CPFACT . CPSIAR 

LOGICAL 

FCR 


KUTTA 



COMMON 

/COMIA/ 

CLSET 


FCR . 

KUTTA 

WCIRC 

LOGICAL 

DUTERR 





COnHON 

/C0H19/ 

ERROR 


11 . 

12 

lERROR . JERROR . 

1 


OUTERR 


EMU(100>21 

VCIlOO) . 

2 




DC IRC » 

POLOaOD 

Z) 

CDMHON 

/conzz/ 

CXCUOO) 


CXL (1001# 

CXR(IOO) 

CXXCIlOOl.CXXLIlDD) 

1 


CXXR(XCO)^ 

CKIOO) 



COMMON 

/C0H26/ 

P JUMPdOOl 




INTEGER 

BCTYPE 





COMMON 

/CDM26/ 

BCTYPE 


CIRCFF 9 

FHINV 

POR . CIRCTE 


C 


COMPUTE JUMP IN POTENTIAL AT TRAILING EDGE 


CTEOLO'CIRCTE 

PUP • CJUP9P1JUP.ITE) - CJUPlAPUUPPl.ITEl 
PLOW • CJLOWPPULDW. ITE) - C JLOHl*P IJLOW-l.lTE) 
CIRCTE • PUP - PLOW 

C COMPUTE FAR FIELD CIRCULATION 

CIRCO • CIRCFF 

IFIKUTTA) CIRCFF • 1 l.-WCIROPCIRCO + CIRCTE*WCIRC 


REAOIN 

323 


IFI.NOT. KUTTA) CIRCFF • .59CLSET/CLFACT 

RECIRC 

31 

READIN 

324 

C 

FIX JUMP IH P at airfoil TRAILING EDGE IF KUTTA*. F. 

RECIRC 

3Z 

READIN 

323 

C 

AND LIFT OF AIRFOIL EXCEEDS CISET. THIS TREATMENT 

RECIRC 

33. 

REAOIN 

326 

c 

ASSUMES THAT CL 13 INCREASING FROM BELOW CLSET OR 

RECIRC 

39 

REAOIN 

327 

c 

IS NOT TOO MUCH ABOVE CLSET TO START CALCULATION. 

RECIRC 

35 

REAOIN 

32B 



RECIRC 

36 

REAOIN 

329 


IF ! .NOT. KUTTA) CIRCTE ■ CIRCFF 

RECIRC 

37 

ReAOlN 

33U 


DCIRC-CIRCTE-CTEOLD 

RECIRC 

38 

REAOIN 

331 



RECIRC 

39 

REAOIN 

332 

c 

SET JUMP IN P ALONG Y • 0. X .ST. 1 

RECIRC 

90 

REAOIN 

333 


FACTOR • ICIRCFF - CIRCTE )/ 1 X 1 IMAX) - 1.) 

RECIRC 

91 

REAOIN 

334 


DO 35 I • ITE.IMAX 

RECIRC 

9Z 

REAOIN 

33? 


PJUMPII) ■ CIRCTE ♦ IXII) - 1.) ♦ FACTOR 

RECIRC 

93 

READIN 

336 

35 

CONTINUE 

RECIRC 

99 

REAOIN 

337 



RECIRC 

95 

REAOIN 

33B 


RETURN 

RECIRC 

96 

REAOIN 

339 


END 

RECIRC 

97 

READIN 

340 





REAOIN 

341 





REAOIN 

342 





READIN 

343 





REAOIN 

344 





READIN 

345 





READIN 

346 





READIN 

34 7 





READIN 

346 





RcADlN 

349 





REAOIN 

330 





READIN 

351 





RtAOIN 






REAOIN 

353 





REAOIN 

354 





READIN 

355 





RbADiN 

356 





ReAOIN 

357 


SUBROUTINE REDUB 

REOUB 

Z 

READIN 

35B 

C 

SUBROUTINE REDU8 COMPUTES DOUBLET STRENGT)! 

RE DUB 

3 

READIN 

359 

c 

FOR LIFTING FREE AIR FLOWS. DOUBLET STRENGTH IS SET 

REDUB 

9 

READIN 

360 

C 

EJUAL TO MODEL VOLUME. FDR OTHER FLOWS. THE NON 

REOUB 

5 

ReADlN 

361 

c 

linear CONTRIBUTION IS ADDED. 

REOUB 

6 

READIN 

362 

c 

CALLED BT - SDLVE. 

REDUB 

7 

REAOIN 

363 



REDUB 

8 




COMMON PIlbZ.lOD.XIlDD) . YllOO) 

BLANK 

Z 




COMMON / COHl/ IMIN . IMAX . lUP . IDOWN . ILE . 

CONI 

Z 




1 ITE . JMIN . JMAX . JUP . JLOW . 

COHl 

3 




Z JTOP . JBOT 

CONI 

9 




COMMON / COHZ/ AK > ALPHA . DUB . GAMl > RTK 

CDMZ 

2 




COMMON / COMB/ XOIFFI100).YOIFFUOOI 

CONS 

Z 




COMMON / C0M6/ FLllOO) . FXLllOO). FUllOO) . FXUUOD). 

C0M6 

z 




I CAMBERIIOO). THICKIlUOl.VDL . XFOILIIUO). IFOIL 

C0M6 

3 

RECIRC 

2 


INTEGER aCITPE 

CDNZS 

Z 

RECIKC 

3 


COMMON /COMZa/ BCTYPE > CIRCFF . FHINV > POR . CIRCTE 

CONZS 

3 

RtCIRC 

4 


COMMON /C0M30/ XIIIOO) . ARGIlOOl . RESTIZOA) 

REOUB 

15 

RECIRC 

5 



REOUB 

16 

RECIRC 

6 


IFI BCTYPE .NE, L ) GO TO 10 ' 

REOUB 

17 

RECIRC 

7 


IFIBCTYPE .EO. 1 .AND. ABSICIRCFF) .LT. .0001) GO TO 10 

REDUB 

18 

RECIRC 

d 


DUB - VOL 

REOUB 

19 

RECIRC 

9 


RETURN 

REDUS 

ZO 

RECIRC 

10. 

10 

CONTINUE 

REOUB 

Z1 

blank 

2 

c 


REDUS 

zz 

CQMl 

2 

c 

COMPUTE DOUBLE INTEGRAL OF U*U OVER MESH DOMAIN FOR 

REOUB 

Z3 

COhj. 

3 

c 

DOUBLET STRENGTH 

REDUB 

Z9 

com 

4 

c 

U - PX IS CENTERED MIDWAY BETWEEN X MESH POINTS. 

REDUB 

Z5 

CQH2 

2 

c 

FIRST THE INTEGRAL <PX**2)Dr IS CALCULATED FOR X 

REDUS 

Z6 

C0M7 

2 

c 

HELD CONSTANT. THUS 1 . / 1 XI lU )-X 1 1 1 )9*Z MAY BE 

RE DUB 

Z7 

coma 

2 

c 

PULLED OUT OF THE INTEGRAL WHICH IS CALCULATED BY 

REDue 

ZB 

CQhU 

2 

c 

THE TRAPEZOIDAL RULE. THE X INTEGRATION CORRESPONDS 

REOUB 

Z9 

C0H14 

3 

c 

TO SUMMING THESE INTEGRALS. WHICH LIE MIDWAY BETWEEN 

REDUfi 

3D 

coniB 

2 

c 

X mesh POINTS. USING A MODIFIED TRAPEZODIAL RULE. 

REOUB 

31 

C0H16 

3 

c 


REOUB 

3Z 

coniB 

4 


lEND • IHAX - 1 

RE DUB 

33 

CONIB 

5 


OBLSUM • 0. 

REDUB 

39 

CQK22 

2 


DO 50 I'lMIN. lEND 

REOUB 

35 

C0N22 

3 


NARG • 0 

REOUB 

36 

CDN26 

2 


DO 30 J • JMIN. JMAX 

REDUB 

37 

C0N2B 

2 


NARG • NARG * 1 

REOUB 

38 

CQMZe 

3 


TEMP . PlJ.l-fl) - PIJ.I) 

REDUB 

39 

RECIRC 

21 


ARGINARG) • TEMP * TEMP 

REDUB 

90 

RECIRC 

22 


XIINARG) • TIJ) 

REOUB 

91 

RECIRC 

23 

30 

CONTINUE 

REOUB 

9Z 

RECIRC 

24 


CALL TRAPIXI.ARG.NARG.SUHI 

REOUB 

93 

RECIRC 

25 


OBLSUM • DBLSUM A SUM * XDIFFIIU) 

REOUB 

99 

RECIRC 

26 

50 

CONTINUE 

REDUB 

95 

RECIRC 

27 


OBLSUM - GAM1*.ZS90BLSUH 

REOUB 

96 

RECIRC 

2d 


DUB • VOL -f DBLSUM 

REOUB 

97 

ReCIRC 

29 


RETURN 

REDUB 

98 

RECIRC 

30 


END 

redo's 

99 



SUBRCU1INE REFINE 

ROUTINE TO EXPANO THE X-HESH ANO r-H£SH TO 
DOUBLE THE NUMBER OF POINTS IN EACH. hILL HAVE 
TO be called twice if mesh HAS HALVED TWICE. 
THE P(J.I) HESH IS ALSO FILLED BY 
INTERPOLATION. 
called BY - TSFOIL. 


CONNON P(I02fi01I.X«100( , YdlDI 

CDnnDN / CQHl/ IHIN . INAX > lUP . IDOUN j ILE . 

1 ITE t JHIN , JHAX t JUP > VLUU , 

2 JTDP . USOT 

LOGICAL ABORT 

COHNON / CDHi/ UEF > ABORT , ICUT » KSTEP 

LOGICAL AHESH 

COHNON / COHA/ XIN(IOO) , YINUOOIf ANESH 
COHNON /CON20/ XNID<100I. YHID(IUO) 

INTEGER eCTYPE 

COHNON /CON28/ aCTYPE > CIRCFF , FHINV . POR > CIRCTE 

COHNON /COMBO/ PTUOO) , REST(BOA) 


C 


JNAXO • JHAX 

INAX - 2 » (INAX - ININ) + ININ 

JHAX • 2 * UMAX - JNINI * JNIN * 1 

IM2 - [HAX - 2 

JN2 • JHAX - 2 

IF (IREF .GT. II GO TO 30 

DO 10 I'lNlNflNAX 

X(J> • XINIl) 

10 CONTINUE 

DO 20 J'JHIN.JNAX 
Y(JI • rlN(J) 

20 continue 

IREF • 0 
GO TO 60 

30 continue 

DO AO 1-lHIN.IHAX 
xm • XHIDCll 
AO continue 

DO SO J*JNIN/JHAX 
Y(J I ■ YNIDIJI 
50 CONTINUE 
IREF ■ I 
60 CONTINUE 

CALL ISLIT ( X ) 

CALL JSEIT ( Y I 

SPREAD P(J.l) TO ALTERNATE KX-NESH) POINTS. 

DO GO J-JNIN.JHAXO 
K • IHIN - 1 
DO 70 I*IN1n,1HAX,2 
X - N + 1 
PTU) ■ PIJ.K) 

70 CONTINUE 

DO BO I*IHINf INAX.2 
P(J.I) ■ PT(U 
60 CONTINUE 
GO CONTINUE 

SPREAD PU.I) ID ALTERNATE J (Y-HESH) POINTS. 
DO 130 I>IN1Nj1NAXi2 
X • JHIN > 1 
JE - JLDW - 1 
JL ■ JLOW - 2 
DO <15 J>JHIN. J£, 2 
X ■ X ♦ 1 
PT(JI ■ P(X,II 
S3 CONTINUE 

JST • JUP ♦ 1 
DO 100 J«JSTiJNAX>2 
K ■ X ♦ 1 
RT«J) • P(K,U 
100 CONTINUE 

OD 110 J-JN1N>JE.2 
P(J,I> ' PT(JI 
110 CONTINUE 

DO 120 J>JST.JNAX>2 
PtJ.II • PT(JI 

120 continue 

130 CONTINUE 


INTERPOLATE TO FILL IN THE 

00 lAO I-ININfIN2 

PT(i) • (x(r*ii-xm> / (X(i* 2 i-xu)i 

lAO CONTINUE 


HISSING P VALUES. 


DO ISO J*JHIN>JE>2 
DO 1A5 I"ININ.IM2,2 

PU.IAll ■ P(J,I) A PKIl * (P(J,I+21 - P(J,in 
1A5 CONTINUE 


REFINE 

2 

REFINE 

3 

REFINE 


REFINE 

5 

REFINE 

6 

REFINE 

7 

REFINE 

e 

REFINE 

9 

blank 

2 

CONI 

2 

CQHl 

3 

COHl 

9 

COM3 

2 

C0H3 

3 

COHA 

2 

COMA 

3 

C0H20 

2 

CCH2B 

2 

C0H26 

3 

REFINE 

16 

refine 

17 

REFINE 

18 

REFINE 

19 

REFINE 

2D 

REFINE 

21 

REFINE 

22 

refine 

23 

REFINE 

24 

REFINE 

25 

REFINE- 

26 

REFINE 

27 

REFINE 

26 

REFINE 

29 

REFINE 

30 

REFINE 

31 

refine 

32 

REFINE 

33 

REFINE 

3^ 

REFINE 

35 

REFINE 

3b 

REFINE 

37 

REFINE 

3B 

REFINE 

39 

REFINE 

40 

REFINE 

41 

REFINE 

42 

REFINE 

43 

REFINE 

44 

REFINE 

45 

REFINE 

46 

REFINE 

47 

REFINE 

43 

REFINE 

49 

REFINE 

50 

refine 

51 

REFINE 

52 

REFINE 

53 

RcFINE 

54 

refine 

55 

refine 

56 

REFINE 

57 

refine 

58 

refine 

59 

REFINE 

60 

refine 

61 

REFINE 

62 

refine 

63 

REFINE 

64 

REFINE 

65 

refine 

66 

REFINE 

67 

refine 

68 

REFINE 

69 

REFINE 

70 

REFINE 

71 

REFINE 

72 

REFINE 

73 

REFINE 

74 

REFINE 

75 

refine 

76 

REFINE 

77 

REFINE 

78 

REFINE 

79 

refine 

80 

refine 

81 

REFINE 

62 



150 CONTINUE 

DO 160 J-JST.JHAX.2 
DO 155 I>1NIN.IH2.2 

P(J»I+ll ■ PU.n + PT(II * tPIJ.I*2l - P(J,I»l 
155 CONTINUE 
160 CONTINUE 

DO ITO J>JHIN,JH2 

PT(j) • irij*ii-r<j)i / 

170 CONTINUE 

DO IDO I'lNlNflHAX 
DO 175 J>JH1N.JL>2 

PtJ*l»II ■ P(J,I( ♦ PT(JI * <P(J«2.I) - PU.in 
175 CONTINUE 

DO 160 J<JST.JH2>2 

P(JA1,II > p(j,n + PTUt ♦ (P|JA2,II - P(J»I>) 
IBO CONTINUE 
190 CONTINUE 

C USE EXTRAPOLATION FOR JLOW. JUP 

01 ■ Y(JLQW) - YIJLOW-ll 

02 ■ Y(JLDW-ll - YIJLOW-21 
CLl ■ (01 ♦ 02) / 02 

CL2 ■ 01/02 

01 • Y(JUP*ll - Y(JUP) 

02 - Y(JUP+21 - Y(JUP+ll 
CUl - (01 + 021 / 02 
CU2 - D1 / 02 

DO 200 I ■ IHIN. INAX 

P(JUP.I) - CUlAPr JlIPAl.I) - CU2«P( JUP+2. I) 
P(JLOU,I) • CL1AP( JLOW-L.II - CL2*P( JL0H-2.il 
2DC CONTINUE 
RETURN 
END 


RcFlNt »3 
REFINE BA 
REFINE as 
REFINE B6 
REFINE B7 
REFINE SB 
REFINE 69 
REFINE 90 
REFINE- 91 
REFINE 92 
REFINE 93 
REFINE 9A 
REFINE 95 
REFINE 96 
REFINE 97 
REFINE 9B 
REFINE 99 
REFINE 100 
REFINE 101 
REFINE 102 
REFINE 103 
REFINE lOA 
REFINE 105 
REFINE 106 
REFINE 107 
REFINE 108 
REFINE 109' 
REFINE 110 
REFINE 111 
REFINE 112 
REFINE 113 
REFINE llA 


■g 


SUBROUTINE RESET 

C SUBROUTINE RESET UPDATES FAR FIELD BOUNDARY 

C CONDITIONS FOR SUBSONIC FREESTREAN FLOWS. 

C CALLED BY - SOLVE. 

COHNON P(102.101).X(I00) . YdOOl 

COHHON / CONI/ IHIN . INAX . lUP > IDOWN . ILE 

1 ITE . JNIN . JHAX . JUP > JLOW 

2 JTOP . JBUT 

COHNON / C0M2/ AX . ALPHA . DUB , GAHl . RTX 

LOGICAL ABORT 

COMMON / C0N3/ IREF . ABORT , ICUT . KSTEP 
COHHON /C0H2A/ OTQP(IOO). OBQTdOOl.DUPdOOI. ODDWNdOOI. 

I VTDP(IOO). VBQTdOOl.VUPdOOli VDOHNdOOl 

INTEGER aCTYPE 

COMflON /COM28/ BCTYPe . CIRCFF . FHINV . POR > CIRCTE 

C SET BOUNDARY CONDITIONS AT UPSTREAN AND DOWNSTREAM 

C ENOS. 

X - JNIN - XSTEP 
00 10 J ■ JNIN.JNAX 

X ■ X ♦ KSTEP 

IF (J .EQ. JUP) K ■ X ♦ XSTEP - 1 
P(J.ININ) • CIRCFF*VUP(KI * DUBAOUP(X) 

P(J.IHAX) • C1RCFF*VDDWN<KI * OUBAOOOWN(K) 

10 CONTINUE 

IF( BCTYPE .NE. II 60 TO 25 

C UPDATE BOUNDARY CONDITIONS ON TOP AND BOTTOM 

X • IHIN - XSTEP 
DO 20 1 • IHIN.IHAX 

X • X + KSTEP 

P(JHIN.I1 • CIRCFF*VBOT(K) ♦ OUB*DBaT(Kl 
P(JMAX,II ■ CIRCFF*VT0P(X1 a D0B*DT0P(X| 

20 CONTINUE 
25 RETURN 
END 


RESET 2 
RESET J 
RESET A 
RESET 5 
RESET 6 
BLANK 2 
COHl 2 
com 3 
CONI A 
CDH2 2 
CQN3 2 
COM3 3 
CQN2A 2 
C0M2A 3 
C0H2S 2 
COHae 3 
RESET 13 
RESET lA 
RESET IS 
RESET 16 
RESET IT 
RESET IB 
RESET 19 
RESET 20 
RESET 21 
RESET 22 
RESET 23 
RESET 2A 
RESET 25 
RESET 26 
RESET 27 
RESET 26 
RESET 29 
RESET 30 
RESET 31 
RESET 32 




SUBROUTINE SCM.E 

c SUBROUTINE SCALES PHYSICAL VARIABLES TO TRANSONIC 

c variables. 

C IF PHYS • .true., all INPUT/DUTRUT OUANTITIES ARE IN 

C PHYSICAL UNITS normalized BY FREESTREAN VALUES AND 

c AIRFOIL CHORD. THIS SUBROUTINE THEN SCALES THE 

t OUANTITIES TO TRANSONIC VARIABLES BY THE FOLLOHIHS 

C CONVENTION 

C SIMOEF • 1 COLE SCALING 

C SIMOEF - a SPREITCB SCALING 

C SIMDEF ■ 3 KRUPP SCALING 

t SIMDEF • A USER CHOICE 

c If PHYS • .False., input is already in scaled 

c VARIABLES AND NU FURTHER SCALING IS DONE. 

C CALLED BY - TSFOIL. 


PUQZ.IQLWAIlOOl , 
COMMON F COMIZ IMIN , IMAX , 

1 ITE , JNIN , 

2 JTOP , JBOr 

COMMON / COM2/ AK , ALPHA , 

LOGICAL AMESH 

COMMON / CDMA/ XiNllOO) , YINliOOI, 

INTEGER PSTART 

logical PSAVE 

COMMON /CQMII/ ALPHAD > CLOLD , 

1 IMINO , IMAXO , 

2 JMAXr , PSAVE , 

3 VOLO , XOLDaOOli 

COMMON /COMIZ/ F , H , 

1 TROPI 

COMMON /COM13/ CDFaCT , CLFACI , 

logical PHYS 

INTEGER PRTFLD , SIMOEF 

COMMON /C0M27/ CL > DELIA , 

1 PHYS , PRTFLD , 

2 YfACT 

INTEGER aCTYPE 

common /CDM2S/ flCTYPE , CIRCFF , 


Y(IOO) 

lUP , IDOHN , ILE , 

JMAX , JOP , JLQH # 

DOB , GAMl , RTK 

AMESH 


DELTAO , DUBO , EHACHO , 

IMAXI , JMINO , JMAXO , 

PSTART , TITLEI81, TITLEOI8), 
YOLDIig}) 

HALFPI > PI , RTKPOR , 

CMFACT . CPFACT , CPSIAR 


OELRTZ , EMACH , EMROOI , 

SIMDEF , SONVEL , VFACI , 


FHINV , POR , CIRCTE 


IF I PHYS I GO ro 30 

C PHYS • .FALSE. NO SCALING 

CPFACT ■ 1. 

CDFACT • I, 

CLFACT • 1. 

CMFACT - 1. 

YFACT ■ 1. 

VFACT ■ 1. 

GO TO 600 

c PHYS - .TRUE. COMPUTE CONSTANTS 

51 CONTINUE 

FMACH2 - EMACH*£MACH 
BETA ■ 1. - EMACH2 
OELRTl • DELTA««a./3.l 
DELRT2 - OELTA»*(2./3,) 

C 

C BRANCH TO APPROPRIATE SCALING 

GO TO 1100, 200,300, ADO), SIMDEF 

C 

C SIMDEF ■ 1 

C COLE SCALING 

ICO CONTINUE 

AK • BETA/0ELRT2 
YFACT ■ 1. /OELRTl 
CPFACT ■ 0ELRT2 
CLFACT • 0ELRT2 
CDFACT ■ D£LRT2«0ELTA 
CMFACT ■ DELRT2 
VFACT • DELTA*57. 295779 
GO TO 500 

C SIMDEF • 2 

C SPREITER SCALING 

200 CONTINUE 

EMROOT • EMACHA*l2./3.) 

AK - BETA/(OELRI2*£HROQT*EMRDOn 

YFACT • l./(OELRTl*EMROOTI 

CPFACT • 0ELRT2/EHR0DT 

CLFACT ■ CPFACT 

CMFACT ■ CPFACT 

CDFACT • CPFACTADELIA 

VFACT - DELTAA57.295779 

GO TO 500 

C SIMOEF • 3 

C KRUPP SCALING 


SCALE 

2 

SCALE 

3 

SCALE 

4 

SCALE 

S 

SCALE 

6 

SCALE 

7 

SCALE 

8 

SCALE 

9 

SCALE 

10 

SCALE 

11 

SCALE 

12 

SCALE 

13 

SCALE 

14 

SCALE 

15 

SCALE 

16 

SCALE 

17 

SCALE 

IB 

BLANK 

2 

COMl 

2 

COMl 

3 

COM! 

4 

COM2 

2 

COMA 

2 

CDMA 

3 

COHll 

Z 

COMU 

3 

COMU 

4 

COMli 

5 

COMll 

6 

COMU 

7 

CONI 2 

2 

CDM12 

3 

C0M13 

2 

C0M27 

2 

CDM27 

3 

C0M27 

4 

C0N27 

5 

COM27 

6 

C0M2B 

2 

C012a 

3 

SCALE 

2B 

SCALE 

29 

SCALE 

BO 

SCALE 

31 

SCALE 

32 

SCALE 

33 

SCALE 

34 

SCALE 

35 

SCALE 

36. 

SCALE 

37 

SCALE 

38 

SCALE 

39 

SCALE 

40 

SCALE 

41 

SCALE 

42 

SCALE 

43 

SCALE 

44 

SCALE 

45 

SCALE 

46 

SCALE 

47 

SCALE 

48 

SCALE 

49 

scale 

50 

SCALE 

51 

SCALE 

52 

SCALE 

53 

SCALE 

54 

SCALE 

55 

SCALE 

56 

SCALE 

57 

SCALE 

58 

SCALE 

59 

SCALE 

60 

SCALE 

61 

SCALE 

62 

SCALE 

63 

SCALE 

64 

SCALE 

65 

SCALE 

66 

SCALE 

67 

SCALE 

68 

SCALE 

69 

SCALE 

70 

SCALE 

71 

SCALE 

72 



300 

CONTINUE 

SCALE 

73 


AN • Bm/(0tLRr2*EM*CHI 

SCALE 

74 


YF»CT • l,/(DELRTl*En*CH»».5) 

SCALE 

75 


CPF*CT • DELRT2MEHACri*«t75) 

SCALE 

76 


CLFACT - CFFACT 

SCALE 

77 


CNFACI • CPFACT 

SCALE 

7a 


CDFACT ■ CPF*CT*0ELTA 

SCALE 

74 


VFACT • DEITA*57. 295779 

SCALE 

80 


GO TO 500 

SCALE 

61 

^co 

CONTINUE 

scale 

6Z 

C 

SlNDtF • A 

SCALE 

63 

c 

THIS AOURcSS IS INACTIVE 

SCALE 

64 

c 

USE* NAT INSERT SCALING OF OWN CHOICE 

SCALE 

65 

c 

DEFINITION FOR LOCAL HACH NUNBER MUST BE ADJUSTED 

scale 

66 

c 

IN ENACHl. 

SCALE 

67 


URITEt&f 1000) 

SCALE 

66 

icoo 

FORNATIBAHIABNORNAL stop in subroutine SCALE/ 

SCALE 

89 


1 29H SINDEF-A is not USEABLE) 

SCALE 

90 


stop 

scale 

91 

5(if 

CONTINUE 

SCALE 

92 

c 

SCALE Y HbSK 

SCALE 

93 


YFACIV - 1.0 / YFACI 

SCALE 

94 


DO 502 J>JNIN.JHAX 

SCALE 

95 


YIN(J) • YIN(J) • YFACIV 

SCALE 

96 

!?02 

CONTINUE 

scale 

97 


IF (PSTART .EQ. 1) GO TO 505 

SCALE 

96 


DO 50A J^JHINO.JHAXU 

SCALE 

99 


YOLOIJ) • YOLOU) ♦ YFACIV 

SCALE 

100 

504 

CONTINUE 

SCALE 

lUl 

505 

CONTINUt 

SCALE 

102 

C 

SCALE TUNNEL PARAHETERS 

scale 

1U3 


H • H/YFACT 

SCALE 

104 


POR - porayfact 

SCALE 

SCALE 

105 

106 

C 

SCALE ANGLE OF ATTACK 

SCALE 

107 


ALPHA • ALPHA/VFACT 

SCALE 

SCALE 

10b 

109 

600 

CONTINUE 

scale 

UCi 

C 

CHECK VALUE OF AK FOR DEFAULT. 

SCALE 

111 


IF <AK .EO. 0.0) call INPERR <71 

SCALE 

112 

C 

C0)1PUTE SQUARE ROOT OF AK 

scale 

113 


RTK • SORTUBSIAK) ) 

SCALE 

114 

C 

CONFUTE SONIC VELOCITY 

SCALE 

115 


IF IABS(GAHl).Gr..00C11 GO TO 999 

SCALc 

116 


SONVEL'l. 

scale 

117 


CPSTaR-C. 

SCALE 

116 


RETURN 

SCALE 

119 

9'?9 

CONTINUE 

SCALE 

120 


SQNVEL • AK / GA)I1 

SCALE 

121 


CPSTAR . -2.0 • SONVEL • CPFaCT 

SCALE 

122 


RETURN 

scale 

123 


END 

scale 

124 


SUatOUTlNE SETiC SETBC 2 


C 


SUBROUriNE S 

ETBC SETS 

THE LD1ITS 

ON RANGE 

QF I ANO J 

SETBC 

3 

C 


POR SOLUTION 

OF THE DIFFERENCE EQUATIONS. 


SETBC 

4 

C 


THE BQOY SLOPE BOUNQAkY CONDITION 

1 AT THE 

CURRENT 

SETBC 

5 

C 


X 

MESH POINTS OK THE 

BODY AR£ MULTIPLIED 

BY MESH 

SETBC 

6 

c 


SPACING CONSTANTS AND 

ENTERED INTO ARRAYS 

FXUBC AND 

SETBC 

7 

c 


FXLBC FOR USE IN SUBROUTINE SYOR* 



SETBC 

6 

c 


CALLED BY - 

TSfOIL* 




SETBC 

9 









SETBC 

10 


CDHhQN 


P(102>101) 

»X<100I 

t moot 



blank 

2 


cannoK / 

coni/ 

IMIN . 

INAX 

» lUP » 

I DOWN 

p ILt p 

CONI 

2 


1 


ITE . 

JHIN 

p JtlAX » 

JUP 

p JlQw p 

COM! 

3 


2 


JTOP % 

jaoT 




CONI 

4 


COHHQN i 

C0N2/ 

AK , 

alpha 

$ DUB » 

GAMI 

p RTK 

COM2 

2 


LOGICAL 


ABORT 





COMB 

2 


COnHDN / 

C0N3/ 

IREF , 

ABORT 

» ICUT f 

KSTEP 


COMB 

3 


connoN / 

C0N6/ 

FLIIOO) , 

FXLCIOOJ 

, FU(IOO) p 

FXUIIOQ) 


COMB 

2 


1 

CANBERdOO). 

THICKCIOOI.VOL > 

XPOILUOO)* IFOLL 

COMB 

3 


COMMON 7COM17/ 

CYYBLC , 

CTYBlO 

, CYYBLU > 

CYYBUC 

, CYYBUD > 

C0M17 

2 


1 


CYYBUU t 

FXLBC(ltiat,FXUBCtlOO) 



C0N17 

3 


INTEGER 


flCTYPE 





C0M2B 

2 


CONNON /C0H28/ 

BCTYPE , 

CIRCFF 

p FHINV p 

POR 

> CIRCTE 

C0M2B 

3 









SETBC 

16 

c 


SET LIMITS ON I AnO J 

INDKIES 



SETBC 

19 


INT ■ 0 







SETBC 

20 


IFUK .LT. 0.) 

INT - 1 





SETBC 

21 


lUP . ININ + I ♦ INT 

SETBC 

22 

lOQWN • IHAX - 1 A INT 

SETBC 

23 

JINT • 0 

SETBC 

29 

IFIBCTYPE .EQ. 1 .AND. AK .GT. 0.) JINT - 1 

SETBC 

25 

IFieCTYPE .EO. 3) JINT ■ 1 

SETBC 

26 

IFIBCTYPE .EQ. 5 .AND. FOR .GT. 1.5) JINT - 1 

SETBC 

27 

JBOT • JHIN A JINT 

SETBC 

28 

JTOP • JMAX - JINT 

SETBC 

29 

AIRFOIL BODY BOUNDARY CONDITION 

SETBC 

30 

zero elements IN ARRAYS FOR UPPER AND LOWER BODY 

SETBC 

31 

BOUNDARY CONDITIONS 

SETBC 

32 

DO BO I • ININtlMAX 

SETBC 

33 

FXLBC(I) • 0. 

SETBC 

39 

FXUBCCl) ■ 0. 

SETBC 

35 

CONTINUE 

SETBC 

36 

ENTER BODY SLOPES AT MESH POINTS ON AIRFOIL 

SETBC 

37 

INTO ARRAYS FqR BODY BOUNDARY CONDITIONS 

SETBC 

38 

IFIIREF .LE. 0) KSTEP ■ 1 

SETBC 

39 

IFIIREF .EO. 1) KSTEP • 2 

SETBC 

90 

IFIIREF .EQ. 2) KSTEP • <i 

SETBC 

91 

NFDIL - ITE - ILE A 1 

SETBC 

92 

IF • IFOIL A KSTEP 

SETBC 

93 

I ■ HE A 1 

SETBC 

99 

DO 50 N ■ l.NFOIL 

SETBC 

95 

I ■ I-l 

SETBC 

96 

IF • IF - KSTEP 

SETBC 

97 

FXLBCIl) ■ CYYBLU*IFXLI IF) - ALPHA) 

SETBC 

9fl 

FXUBCIl) ■ CYYBUD*IFXU(IF) - ALPHA) 

SETBC 

99 

CONTINUE 

SETBC 

50 

RETURN 

SETBC 

51 

END 

SETBC 

52 


subroutine SIMPIR.X.Y.N.IER) 


SIMP 

2 

subroutine to INTEGRATE BY SIMPSONS RULE. 

SIMP 

3 

called by BODY. 


SIMP 

9 

dimension XIN),YIN) 


SIMP 

5 

R'O.O 


SIMP 

6 

IFIN.GT.l) GO TO 1 


SIMP 

7 

IFR.2 


SIMP 

« 

RETURN 


SIMP 

9 

1 IFIXI 1) .E0.XI2)) GO TO 12 


SIMP 

10. 

NHl.N-1 


SIMP 

11 

IFIN.EQ.2) go To 13 


SIMP 

12 

IF(XI1).LT.X<2)) GO TO 3 


SIMP 

13 

TEST FOR X TO BE MONQTONICALLY 

DECREASING 

SIMP 

19 

DO 2 1-2, NMl 


SIMP 

15 

IFIXIIaD.GE.XID) go to 12 


SIMP 

16 

2 CONTINUE 


SIMP 

17 

GO TO 5 


SIMP 

IB 

TEST FOR X TO BE MDNOTONICALLY 

INCREASING 

SIMP 

19 

3 00 9 I»2>NH1 


SIMP 

20 

IFIXIIaD.LE.XID) go TO 12 


SIMP 

21 

9 CONTINUE 


SIMP 

22 

5 NM2>N-2 


SIMP 

23 

IFI M0DIN.2) .EQ.3 ) GO TO 19 


SIMP 

29 

P-O.C 


SIMP 

25 

Nl-l 


SIMP 

26 

6 Sl<XINlAl)-XINl) 


SIMP 

27 

S2>XIN1A2 )-XINlAl) 


SIMP 

28 

S3-XtNHl)-XINM2) 


SIMP 

29 

S9>XIN)-X<NH1I 


SIMP 

30 

P-(2.*S1»*2as1*S2-S2**2)/S1*TIN1)AIZ.*5AAA2AS3»S9-S3**2I/S9*YIN) 

SIMP 

31 

Nl-NlAl 


SIMP 

32 

DO 7 I>N1,NN1>2 


SIMP 

33 

Sl-XII)-X(I-l) 


SIMP 

39 

S2*X(IA1»-*(I» 


SIMP 

35 

7 R-RaIS1AS2)**3/IS1*S2)*YII) 


SIMP 

36 

IFIN.lt. 5) GO TO 9 


SIMP 

37 

Nl-NlAl 


SIMP 

38 

DO B I-N1,NHZ,2 


SIMP 

39 

S1-XII-11-XII-2) 


SIMP 

90 

S2 "X I D-XlI-l) 


SIMP 

91 

Sl-XIIAlJ-XII) 


SIMP 

92 

S9-XI IA2)-XIIAI) 


SIMP 

93 

B R"RAlI2.»S2**2ASl*S2-Sl*»2)/S2AI2,*S3**2AS3*S9-S9At2)/S3)*Yir) 

SIMP 

99 

9 R-R/6.AP 


SIMP 

95 

10 CONTINUE 


SIMP 

96 

IER*1 


SIMP 

97 

RETURN 


SIMP 

9B 



12 

RETURN 

C TRAPEZOIDAL RULE FOR N-2 

13 R.(XIZ)-X(lM*»mi4TI2l>/2.0 
60 TO 10 

C FIT PDLYNONUL THRU FIRST 3 POINTS AND INTEGRATE FRON Xlll TO X(2). 
lA 51"XIZ)-X(1) 

52- X131-XI1) 

53- YIZ)-m) 

SA-YOI-YIll 

P*Sl/6t»I2.*S3+'6t»Y(l )+IS2*»2*S3-SiPA2*SAI/lS2*IS2-Sl)H 

Nl-Z 

GO TO 6 

END 


C 

C 


c 

c 


c 


c 


SUBROUTINE SOLVE 


SDi-VE CONTROLS THE MAIN ITERATION LOOP. 
CALLED BY - TSFOILt 


COMMON 

P (102.101) 

xaoo) « 

YUOO) 

lOOWN > ILE • 

COMMON / COMl/ 

IMIN 


IHAX / 

lUP 

1 

ITE 


jniN f 

JMAX 

JUP . JLQW . 

2 

JTOP 


JBOT 



COMMON / CCjM2/ 

AK 


ALPHA 9 

DUB 

GAMl . RTK 

LOGICAL 

ABORT 





COMMON / C0M3/ 

IREF 


ABORT » 

I COT 

KSTEP 

COMMON / C0M7/ 

CJUR 


CJUPl # 

CJLOW 

CJLOWl 

COMMON / COMB/ 

CVERGe 


dverge « 

IPRTER 

MAXIT . 

1 

WEHI 


EPS 



COMMON /C0M13/ 

CDFACT 


CLFACT i 

CMFACT 

CPFACT . CPSTAR 

LOGICAL 

OUTERR 





COHHUN /COMIB/ 

ERROR 


[1 « 

12 

lERROR . JERROR . 

1 

OUTERR 


EMUdUU.Z) . 

VCdOOl . 

2 

W1 


OCIRC > 

POLOdOO.Z) 

COMMON /C0H22/ 

CXCdOOl 


CXL(ID0»# 

CXRClOCd 

CXXC(100)f CXXL<100J 

1 

CXXR(IOO). 

Cl(lOO) 



COMMON /C0M29/ 

CPLllOO) 


CPUC100» 



INTEGER 

8CTTPE 




PQR f CIRCTE 

COMMON /C0H2B/ 

BCTYPE 


CIRCFF , 

FHINV 1 

COMMON /C0H32/ 

BIGRL 


IRL * 

JRL 


COMMON /C0M33/ 

THETAdOD. 

100» 




REAL LIFT 

DATA NDUB / 23 / 


ABORT • .FALSE. 

VRITE(6>6DD) 

IF HREF .EO. 2) MAXITM ■ MAXIT / A 

IF (IREF .to. 1> MAXITM • MAXIT ! 2 

IF (IREF .EO. 0) MAXITM ■ MAXIT 

KK ■ 3 — IREF 

IF (KK .EO. 1) RRIT£(6.b07) 

IF (KK ,E0, 2) WRITE(fr.60S) 

IF (KK .EO. 3> NRIT6(A.600I 
NEP • NE(KKI 
Ul • 1.0 / NEP 

WRITE (D.6061 WEPf EPS. MAXITM 
NRITE(6<B01) 


DO 1 HER • IfMAXITM 
C 

C INITIALIZE EMU 

Il-l 

12*2 

DO 9 J>JMIN.3MAX 
POLD(J. 12) • P(J.1UP~1) 

EMU(J.I2) ■ 0.0 
9 CONTINUE 

IF ( AK .GT. O.D I GO TO 7 
DO 6 J.JHIN.3MAX 
EMUIJ.IZI • Cl(2) 

6 CONTINUE 
r CONTINUE 

OUTERR*. FALSE. 

IF(MOD(ITER.IPRTER) .EQ. 0) OUTERR* .TRUE. 


SIMP A9 
SIMP 90 
SIMP 51 
SIMP 92 
SIMP 93 
SIMP 5A 
SIMP 55 
SIMP 96 
SIMP 57 
SIMP 5B 
SIMP 59 
SIMP 60 
SIMP 61 
SIMP 62 


SOLVE 2 

SOLVE 3 

SOLVE A 

SOLVE 5 

BLANK 2 

COM! 2 

COMl 3 

CONI A 

COM2 2 

COM3 2 

COM3 3 

C0M7 2 

COMB 2 

COMB 3 

C0M13 2 

COMlb 2 

COMia 3 

COMl 8 A 

C0M16 5 

CQM22 2 

C0M22 3 

COMES 2 

C0M28 2 

C0M28 3 

C0M32 2 

C0M33 2 

SOLVE 19 
SOLVE 20 
SOLVE 21 
SOLVE 22 
SOLVE 23 
SOLVE 2A 
SOLVE 25 
SOLVE 26 
SOLVE 27 

SOLVE 28 

SOLVE 29 

SOLVE 3D 

SOLVE 31 
SOLVE 32 

SOLVE 33 

SOLVE 3A 

SOLVE 39 

SOLVE 36 

SOLVE 37 

SOLVE 36 

SOLVE 39 

SOLVE AO 

SOLVE A1 

SOLVE A2 

SOLVE A3 

SOLVE AA 

SOLVE A5 

SOLVE A6 

SOLVE A7 

SOLVE AB 

SOLVE A9 

SOLVE 50 

SOLVE 91 

SOLVE 52 

SOLVE 93 

SOLVE 9A 

SOLVE 55 

SOLVE 56 


ERROR'0.0 
BIGRL • 0.0 

C UPDATE PJUMP. 

CALL RECIRC 

CALL SYOR 

C UPDATE CIRCULATION FOR SUBSONIC FREESTREAM FLOW 

IF ( AK ,LT. 0.0 ) G0 TO 10 
IF (BCTYPE .NE. 1) GO TO 9 
IK ■ lUP - IMIN 
DO e I*IUP>I0DwN 
IK • IK ♦ KSTEP 
VK • JBOT - JMIN 
00 82 WBOT.VTOP 
JINC ■ KSTEP 

IF (Y(J) .LT. 0,0 .AND. Y(J*H .GT. 0.0) JINC - 2 * KSTEP - 1 
JK • JK 4 JINC 

P(J.I) • P(J.I) 4 DCIRC 4 THETA(JK,IKI 
82 CONTINUE 

8 CONTINUE 

9 CONTINUE 

C444444 

IF (MQD( ITER, NDUB) .EO. 0) CALL REDUB 

C444444 

CALL RESET 
10 CONTINUE 

IF(OUTERR) GO TO 2 
GO TO 1 

2 CONTINUE 

CL ■ LIFT (CLFACTI 
CM ■ PITCH (CHFaCTI 
ERCIRC*ABS(OCIRC I 
CPMAXL-0.0 
CPMAXU'O.O 
DO lA 1*ILE.ITE 

UL>CJLCW*PX(I. JL0m)-CJLDW1*PX(I. JLOW-1) 

CPOLO-CPL(l) 

eFL)I).-2.0*UL*CPFACT 

cperr*abs(cpl( ii-cpold) 

IF (CPERR .L£. CPMAXL) GO TO 12 

CPMAXL'CPERR 

lERRL'I 

12 UU*CJUP»PXI1, JUP )-CJUPl»PX(I# JUP41) 

CPOLD*CPU(I) 

CPU(I)— 2.04UU4CPFACT 
CPE RR*ABS(CPU( II-CPOLD) 

IF (CPERR .LE. CPMAXU) GO TO lA 
CPHAXU*CPERR 

lERRU-l 
lA CONTINUE 

WRITE ( 6.602) ITER. CL. CM. lERROR. JERROR. ERROR. IRL. JRL. 

1 BIGRL.ERC1KC.IERRU.CPNAXU^IERRL.CPMAXL 
IF (ERROR .Le. CVERGE) GO TO 3 
IF (ERROR .G£. OVERGEI GO TO A 
1 CONTINUE 

WRITE(6.605) 

RETURN 

3 CONTINUE 
WRITE(6.603) 

RETURN 

A CONTINUE 

ABORT - .TRUE. 

HRITE(6.60AI 

RETURN 

600 FORMATdHlI 

601 FORMATIllHC ITEXATI0N,AX.2HCL«9X.2HCM.5X.AHIERR.2X.AHJERR.5X> 

1 SHERR0R.5X,3HIRL>3X,3HJRL.6X.5HBIGRL.SX.6HERCIRC.AX.AHXCPU. 

2 5X.6HCPERRU.AX.AHICPL.5X.6HCPERRL/I 

602 F0RMAT(3X.1A,1X,2F11.5,2I6.E13.A.2I6.2E13.A.2(16.E13.A)I 

603 FORMAT! T/20X.3AH444444 SOLUTION CONVERGED 44*4*») 

6CA FDRMATI//Z0X.33H4444** SOLUTION DIVERGED *44»44) 

609 F0RMAT(//20X.39H4*4»44 ITERATION LIMIT REACHED **4444) 

606 FORMAT! 10X,9HWc ■ F8.A.5X.6HEPS ■ FB.A.5X. 

1 22HMAXII FOR THIS MESH ■ lA) 

6C7 F0RMAT(A8X.39HINTERMED1ATE OUTPUT FOR COARSE MESHTV) 

608 FORMAT! A8X.3SHINTERMEDIATE OUTPUT FOR MEDIUM MESH//) 

609 F0RHAT(A9X,33HIHIERMEDUTE OUTPUT FOR FINE MESH//) 

END 
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^ SUBROUTINE SPLNl <X>Y,NI 

C CALLED BT - BODY. 

CONNON /SPLN/ A(ZOO) > B(200) > DYl t DY2 > K1 

I K2 t XP , TP »DYP 

continuous derivative INTERPOLATION SUBROUTINES 

CURFIi CONFUTES CUtfFICIENTS OF CU8ICS -- At I ) ... I'lf 2*N~2 

C FDR THE UHOLE TABULATED TABLE 

C xm • INDEPENDENT VARIABLE 1-1>N (GIVEN) 

C YU) • DEPENDENT VARIABLE I>1,N (GIVEN) 

C N . length of Y-VS-X table (GIVEN) 

C CYl • JST OK 2ND DERIVATIVE AT LOVcR END OF TABLE 

C DY2 - 1ST OR 2ND DERIVATIVE AT UPPER END OF TABLE 


C K1 • 1 DYl ■ 1ST DERIVATIVE (GIVEN) 

C K1 • 2 DYl - 2ND DERIVATIVE (GIVEN) 

C K2 - 1 0Y2 - 1ST DERIVATIVE (GIVEN) 

C K2 ■ DY2 • 2ND DERIVATIVE (GIVEN) 


DIMENSION X(l). Yd) 

Nl-N-2 

Cl-X(2)-X(l) 

IF (K1 .EO. 2) GO TO A 
B(l) • 0. 

A(1)*(0Y1-(Y(2)-Y(1))/C1) YCl 
C-0 TO t 
A B(D— Cl 
A(l).-0Yl/2. 

IF(N.E0.2)GD TO A2 
DO 10 I-l.Nl 
J*JAl 

C1-X(I*1)*X(1) 

C2-X(I*2)-X(1+1) 

C3-Y(I41)-Y(I) 

CA-Y(I+2)'Y(I+1) 

CE-C3/C1-CA/C2 

C6*C1/C2 

C7*CI*C2 

8( J)-1.0/(C6*(C1-B( J-1) )) 

1( J)-(CS/C2-C6*A(J~1) )«BU) 

J.J+1 

B(J)-1.0/((-Cl-CZ)/C7-C6*B( J-1) ) 

A(J) -(-O/CT-CB^AI J-1) )*0( J) 

10 CONTINUE 

IF(k2.E0.2)GO to 30 

AUAl) • (DYZ-CA/CZ+CZAAI J) ) Y(C2t(B( J )-C2 )) 

GO TO A5 

30 A( JA1).(0YZ/2.AA( J) ) /(-2.AC2AB( J) ) 

60 TO Ai 

C STATEMENTS A2 TO AA ARE FOR N.2 ONLY 

A2 C3-K1 

C2-1.0YC3 

IF) K2.E0.Z)G0 TO AA 

A(J*1) ■ UY(Z)-Y(l))/Cl-A(J)*Cl-0T2)/(Ci»CU*CZ 
GO TO AS 

AA A( JA1)«C3*( (DY24Z.0*A(1))/(A.0AC1I) 

AS J-2*(N-l) 

5f J-J-1 

IF( J.LE.OPETURN 
A(J) • A(J )-B(J)*A( JaI) 

GO TO SO 
C 

C ENTRY POINT FOR INTERPOLATION 
ENTRY SPLNIX 

IFIXP.GT.xUn GO TO 11 

C SPECIAL CASE FOR EXTRAPOLATION 3EYQN0 LOWER END OF X-TABLE 
c*x(Z)-x(i) 

DYP"(Y(Z)-Y(1))/C4A(1)*C 

YP-T(1)+0YP*1XP-X)1)) 

RETURN 

11 IF(XP.IT.X(N) ) GO TO 13 

c SPECIAL Case for extrapolation beyond upper end of y-table 

C*X(N)-X(N-1) 

0YP-(Y(N)-Y(N-1) )/C-A(2*N-3)*C-A( 2»N-2)*CAC 
YP«Y(N)+DYP*( XP-X(N) ) 

RETURN 
13 I-l 
lA I-I+l 

IF(XU) .LT.XP) GO TO lA 

C NOW XP HAS BEEN BRACKETED SO THAT XU-1 ),LT, XF. LE.X ( I ) 
C*XP-X( I-l) 

0-XU)-XP 


SPLNl Z 
SPLNl 3 
SPLNl A 
SPLNl 5 
SPLNl 6 
SPLNl 7 
SPLNl 6 
SPLNl 9 
SPLNl 10 
SPLNl 11 
SPLNl 12 
SPLNl 13 
SPLNl 14 
SPLNl 15 
SPLNl 16 
SPLNl 17 
SPLNl lb 
SPLNl 19 
SPLNl 20 
SPLNl 21 
SPLNl 22 
SPLNl 23 
SPLNl 2A 
SPLNl 25 
SPLNl 26 
SPLNl 27 
SPLNl 26 
SPLNl 29 
SPLNl 30 
SPLNl 31 
SPLNl 32 
SPLNl 33 
SPLNl 3A 
SPLNl 35 
SPLNl 36 
SPLNl 37 
SPLNl 36 
SPLNl 39 
SPLNl AO 
SPLNl 41 
SPLNl A2 
SPLNl A3 
SPLNl AA 
SPLNl AS 
SPLNl A6 
SPLNl A7 
SPLNl aB 
SPLNl A9 
SPLNl SO 
SPLNl 51 
SPLNl 52 
SPLNl 53 
SPLNl 5A 
SPLNl 55 
SPlNI 56 
SPLNl 57 
SPLNl 5B 
SPLNl 59 
SPLNl 60 
SPLNl 61 
SPLNl 62 
SPLNl 63 
SPLNl 6A 
SPLNl 65 
SPLNl 66 
SPLNl 67 
SPLNl 6a 
SPLNl 69 
SPLNl 70 
SPLNl 71 
SPLNl 72 
SPLNl 73 
SPLNl 7A 
SPLNl 75 
SPLNl 76 
SPLNl 77 
SPLNl 70 
SPLNl 79 
SPLNl BO 
SPLNl SI 
SPLNl bZ 
SPLNl 83 
SPLNl BA 
SPLNl 85 
SPLNl 86 
SPLNl 87 


K. 2*1-3 

S10PE.(YU)-Y< I-l)) / (XU)-X) I-D) 
YP*Y(I-l)*(SLaPE*(A(K)*A(K*l)*CI*D)*C 
RETURN ®'^*’'5*-I^PE+A(K)*(0“C)*A(K*1)A(2.*0-C)*C 
END 


SUBROUTINE SYOR 


C 

C 


SYOR COMPUTES NEW P AT ALL MESH POINTS. 



CALLED BY - 

SOLVE. 



COMMON 


P U02/I01) 

.XIIDD) . 

riioo) 


common 

/ COMl/ 

IMIN . 

IHAX I 

lUP , 

lOOWN > ILE 



ITE . 

JMIN > 

JMAX , 

JUP > JLOW 



JTOP , 

JBOT 



COMMON 

/ COME/ 

AK > 

ALPHA . 

OUB » 

GAHl , RTK 

common 

/ C0M8/ 

CVERGE » 

OVERGE . 

IPRTFft # 

MAXIT > 

L 


WE(3) . 

EPS 



LOGICAL 

FCR . 

KUTTA 



COMMON 

/coriL^/ 

CLSET . 

FCR f 

KUTTA , 

VC IRC 

COMMON 

/CQM.7/ 

CYY3LC . 

CYYBLD . 

CYY0LU > 

CYYBUC . CYYBUO 

L 


CYYBUU t 

FXLBC(100)i 

>FXUBC(100) 

LOGICAL 

OUTERR 




COMMON 

/C0M18/ 

ERROR t 

11 1 

12 . 

lERROR . JERROR 



OUTERR t 

EHU(luO.Z) ■ 

VC(IOO) . 



WI * 

DCIRC . 

POLDUOD. 

2) 

COMMON 

/C0hl9/ 

DlAG(lOO). 

RHSUOO). 

SUB(IOO). 

SUPllOO) 

COMMON 

/COM22/ 

CXC(IOD) > 

CXLUOO). 

CXRUOO). 

CXXC(130).CXXL(1( 



CXXRUOO). 

Cl (100) 



COMMON 

/COMZa/ 

CYYC (100). 

CYYOUCO). 

CYYU( 100) 

> IVAL 

COMMON 

/COM26/ 

PJUMP(IOO) 



common 

/CQM32/ 

6IGRL . 

IRL > 

JRL 


DIMENSION SAVE(IOO) 





1M2.IUP-1 

IF( AK ,LT. 0.0 ) lM2>IUP-2 


J1 • JBOT * 1 
J2 • JTOP - JBOT 

DO 200 1«IUP>10DWN 

EPSX . EPS/((X(I)-XU-1))**Z) 

C COMPUTE VC ■ 1 - M**2 


DO IP J* JBOT# JTOP 

VC(J) . CIU) - (CXL(I)*POLD( J»I2) ♦ CXCU)*P(J,I) 
1 + CXRU)*P(J. 1*1) I 

EMU(J>I1) - 0.0 
POLDU.Il) . P(J,I) 

10 CONTINUE 

00 20 J*JBCT.JTOP 

IF (VC(J) .IT. 0.0) EHU(J.Il) • VC(J) 

20 CONTINUE 

IF ( FCR ) GO TO 22 
DO 21 J.JBDTfJTOP 
EMU(J.IZ) • EMJ(J.ll) 

21 CONTINUE 

22 continue 

C COMPUTE ELEMENTS OF MATRIX 


00 30 J'JBOTiJTOP 

DIAG(J) • (EMU(J,tl) - VCUn ♦ CXXCU) * wl 
1 ♦ £MU(J#I2) * CXXRU-i) - CYYC(J) 

SUPU)-CYYD(J) 

SUBIJ).CYYU(J) 

30 CONTINUE 


C 


COMPUTE RESIDUAL 


00 AO J-J6 0r.J TOP 

RHS(J) « -(VCI J)-EMU( Jf ID )* 

I (CXXLU)*P(J.I-1) - CXXCUI*P(J,1) ♦ CXXRU)4P(J*l*D) 

AO CONTINUE 

DO SO J-JBOT.JTDP 

RHS)J) • RHS(J) - (EMJIJ.I2) * ( CXXLU-1) *P ( J. IMZ I 


SPLNl 

SPLNl 

SPLNl 

SPLNl 

SPLNl 

SPLNl 


88 

89 

90 

91 

92 

93 


SYOR 2 

SYOR 3 

SYOR A 

SYOR 5 

BLANK 2 

C0)I1 2 

COMl 3 

COHl A 

COM2 . 2 

COMB 2 

COMB 3 

COHIA 2 

CQH14 3 

CDH17 ■ 2 

CDM17 3 

cams 2 

C0M18 3 

C0N18 4 

C0M18 5 

C0H19 2 

C0M22 2 

CDM22 3 

C0H23 2 

Ca)126 2 

C0M32 2 

SYOR 18 

SYOR 19 

SYOR 20 

SYOR 21 

SYOR 22 

SYOR 23 

SYOR 24 

SYOR 25 

SYOR 26 

SYOR 27 

SYOR 28 

SYOR 29 

SYOR 30 

SYOR 31 

SYOR 32 

SYOR 33 

SYOR 34 

SYOR 35 

SYOR 36 

SYOR 37 

SYOR 3b 

SYOR 39 

SYOR 40 

SYOR 41 

SYOR 42 

SYOR 43 

SYOR 44 

SYOR 45 

SYOR 46 

SYOR 47 

SYOR 4B 

SYOR 49 

SYOR SO 

SYOR 51 

SYOR 52 

SYOR 53 

SYOR 54 

SYOR 55 

SYOR 56 

SYOR 57 

SYOR 56 

SYOR 59 

SYOR 60 

SYOR 61 

SYOR 62 

SYOR 63 



1 - CXXCIl-l)*P(JiI-ll + CXXR(1-1)*PIJ<1)>) 

SO CONTINUE 

J* • JBOT + 1 
JB • JTOP - 1 
DO 60 J'JXfJB 

RHSIJ) ■ - (CYYD(JIPPIJ-lfl) - CYYC < J I *P ( J« 1 1 

1 + CYYU) J»*P(J-H»in 

60 CONTINUE 

RHS(JBOT) • RHStJBQTI - <-CYYC 1J30TI«PIJB0T> II 

1 * CYYU(JBOT)PPUBOm>I)) 

IP UBOI .EQ. JNINl 60 TO 61 

RHSUBOTl ■ RHSIJBOTI -CYYDI JBOT) PP( J BOT-1/ 1 1 

61 CONTINUE 

PHS(JTOP) ■ RHSIJTOPl - (CYYDIJTOPI»PUTOP-1» II 

1 - CYYC<JrOPI*P(JTOP>II I 

IF (JTOP .EO. JNXXI GO TO 62 

RHSIJTOPI ■ RHStJTOPI - CYYU I JTOP I »P( JTOPPl » 1 1 

62 CONTINUE 

C CHECK FOR AIRFOIL 6.C. AND KUTTA SLICE< 

IF (I .LT. ILEI GO TO 80 
IF II >GT. ITEI GO TO 70 

C AIRFOIL B. C. 

J'JUP 

DIAGtJI'DIAGUHCYYCIJI-CYYBU: 

SUP( Jl>0.0 
SUBUI'CYYBUU 

RHS(JI-RHS(J|ACrYOIJI*PU-l>II-CYYC(JI*P(Jr II«CYYU( JIPPU-Alf II 
1 -(-CYY0UC*P( JiIHCYYBUUAPU'fltll AFXUBCdl I 

J-JLOW 

OIAG(JI*DIAG( Jit CYYC (Jl'CYYBLC 
SUP (J l■CYYBLD 
SUB( JI-OiO 

PHSIJ l■RriS(J|t■CYYD( J1»P(J-1» I1 -CYYC(JI»P(JjII+CYTU( JI*PI Jtldl 
1 -(-CYYBLC*P( J»II*CTYaLD*P( J-l» II+FXLBCIII I 

GO TO BO 

C KUTTA SLICE CHANGEt 

70 CONTINUE 

FHSIJLOUl ■ RHSIJLOm + CYYUI JLON l»PjuriPl M 
RHSIJUPI • RHSIJUPI - CYYOIJUP l♦PJUNP(II 
BO CONTINUE 

C INSERT JALL B. C. 

IVAL • 1 
CALL BCENO 

C COMPUTE MAX RESIDUAL. 

IF ( .not. OUTERRI go to 110 
DO 100 J>JBOT>JTOP 
ARMS ■ ABSIRHSIJII 
IF (ARMS .GT. BIGRLl GO TU 90 
GO TO 100 
90 CONTINUE 
BIGRL - ARMS 
IRL • I 
JRL • J 
100 CONTINUE 
110 CONTINUE 
C 

C*t«*tt***t* ADO pxr 

C 

DO 300 J - JBOTf JTOP 
DIAGIJI • DIAGUI • EPSX 

300 RHSIJI - RHSIJI - EPSX*( PI J> [-11 -POLO ( J> 12 1 1 

C SOLVE TRIDIAGQNAL MATRIX EQUATION, 

DNOH • 1.0 / DIAG(JBOTI 

SAVEIJBOTI>SUB<JBOTI*DNON 
RHSIJBOTI • RHStjaOTI * ONON 
00 120 J'JljJTOP 

DNDH-l./(DIAG(JI-SJP(J|tSAVE{J-lll 

SAVEIJI'SUBUItONON 

RHSI JI>(RHS( JI-SUPI J)*RHSI J-ll ItONDN 
120 CONTINUE 

DO 130 K*1»J2 
J • JTOP - K 

RHSIJI • RHSIJI - SAVEIJI • RHSIJtll 
130 CONTINUE 


SYOR 66 
STOR 6S 
SYOR 66 
STOR 67 
SYOR 6B 
SYOR 69 
STOR 70 
SYOR 71 
SYOR 72 
SYOR 73 
SYOR 76 
SYOR 75 
SYOR 76 
SYOR 77 
SYOR 78 
SYOR 79 
SYOR 80 
SYOR 81 
SYOR 82 
STOR 83 
SYOR 86 
SYOR 85 
SYOR 86 
SYOR 87 
SYOR 6b 
SYOR 89 
SYOR 90 
SYOR 91 
SYOR 92 
SYOR 93 
SYOR 96 
SYOR 95 
SYOR 96 
SYOR 97 
SYOR 98 
SYOR 99 
SYOR 100 
SYOR 101 
SYOR 102 
SYOR 103 
SYOR 106 
SYOR 105 
SYOR 106 
SYOR 107 
SYOR 108 
SYOR 109 
SYOR 110 
SYOR 111 
SYOR 112 
SYOR 113 
SYOR 116 
SYOR 116 
SYOR 116 
SYOR 117 
SYOR 118 
SYOR 119 
SYOR 120 
SYOR 121 
SYOR 122 
SYOR 123 
STOR 126 
SYOR 125 
SYOR 126 
SYOR 127 
SYOR 128 
SYOR 129 
SYOR 130 
SYOR 131 
SYOR 132 
SYOR 133 
SYOR 136 
STOR 135 
SYOR 136 
SYOR 137 
SYOR 138 
SYOR 139 
SYOR 16(1 
SYOR 161 
SYOR 162 
SYOR 163 
STOR 166 
SYOR 165 
STOR 166 
SYOR 167 
SYOR 166 
SYOR 169 


COMPUTE NER f. 


DO 160 J'JSOTtJTOP 
PlJfll - PIJ, I) t RHSIJI 
160 CONTINUE 

C COMPUTE MAX ERROR 

IF I .NOT. OUTERRI GO TO 180 
DO 170 J • J8DT,JT0P 
ARHS • ABSIRHSIJII 
IF lARHS .GT. ERRORI GO TO 163 
GO TO 170 
160 CONTINUE 

ERROR • ARHS 
lERROR • I 
JERROR • J 
170 CONTINUE 

180 continue 

IF (AK .GT. 0,01 GO TO 195 
IF II .NE. lOUUN-ll GO TO 195 

C SET PlIDOwNtll • PlIDOUN-ll TO OBTAIN 

C CENTERED VELOCITY AT IDOUN FOR SUPERSINIC 

C FREESTREAH FLOH. 

00 190 J-JMIN.JMAX 
PIJ.IOOWNtll ■ PU. IDOUN-ll 
190 CONTINUE 
195 CONTINUE 
ISAVE • 12 
12 • 11 
II ■ ISAVE 
IM2*I-1 
200 CONTINUE 
RETURN 
END 
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SYOR 
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SYOR 
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SYOR 
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SYOR 
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SYOR 
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SYOR 

157 

SYOR' 

158 

SYOR 

159 

SYOR 

160 

SYOR 

161 

SYOR 
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SYOR 

163 

SYOR 

166 

SYOR 

165 

SYOR 

166 

SYOR 

167 

SYOR 

16S 

SYOR 

169 

SYOR 

170 

SYOR 

171 

SYOR 

172 

SYOR 

173 

SYOR 

176 

STOR 

175 

SYOR 

176 

SYOR 
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SYOR 
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179 

SYOR 

180 

SYOR 

181 

SYOR 

1B2 

SYOR 

183' 

SYOR 

186 

SYOR 

1B5 

SYOR 
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SUBROUTINE TRAP! X,Y,N,SUMI 

C INTEGRATE Y OX BY TRAPEZODIAL RULE 

C N IS THE NUMBER OF (X.YI POINTS AND SUM IS THE 

C RESULTING INTEGRAL. 

C CALLED BY - CDCOLE, DRAG. PITCH. REDUB. 

C INTEGRAL 

DIMENSION Xlll.Ylll 
SUM • C. 

NMl - N-1 
DO 10 I-l.NMl 
Z ■ Xlltll - XII 1 
H • YII + ll ♦ Y(I I 
SUN - SUM ♦ 

ID CONTINUE 

SUM • .5»SUM 

RETURN 

END 


TRAP 2 

TRAP 3 

TRAP 6 

TRAP 5 

TRAP 6 

TRAP 7 

TRAP 8 

TRAP 9 

TRAP 10 

TRAP 11 

TRAP 12 

TRAP 13 

TRAP 16 

TRAP 15 

TRAP 16 

TRAP 17 

TRAP 18 


SUBROUTINE VROOrs 

C COMPUTE CONSTANTS BETAD. BETA1.BETA2.PS10.PS II. PSI2. 

C USED IN FORMULA FOR VORTEX IN SLOTTED HIND TUNNEL 

C HITH SUBSONIC FRcESTREAM 

C CALLED BY - FARFLD. 

COMMON /C0M12/ F . H . HALFPI > PI . RTKPOR . 

1 TUOPl 

COMMON /COMIS/ B . BETAO . BETAl . BETA2 . PSIO . 

1 PSIl . PSI2 

ERROR ■ .00001 

C CALCULATE BETAO 

BETAO • 0. 

DO 10 I • 1.100 


VROOTS 2 
VROOTS 3 
VROOTS 6 
VROOTS 5 
VROOTS 6 
VROOTS 7 
CQH12 2 
COMIZ 3 
C0H15 2 

CDM15 3 
VROOTS 10 > 

VROOTS 11 S 
VROOTS 12 g 
VROOTS 13 g 
VROOTS 16 S 


I 




TEMP ■ 8ET*0 

VROOTS 

19 


0 • -FPTEMP ♦ RTKPOR 

VROOTS 

16 


BETAO • ATAN(OI 

VROOTS 

17 


DBETA ■ ABSITEMP - BETAO) 

VROOTS 

IB 


IFIDBETA .LT. ERROR) GO TO 19 

VROOTS 

19 

10 

CONTINUE 

VROOTS 

20 


N • 0 

VROOTS 
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